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VOORWOORD van auteur 


Aan het einde van de jaren zestig heeft Charles Moore, van het N.R.A.O. te 
Kitt Peak FORTH ontworpen. De algemene toepassingen van FORTH in Amerikaan¬ 
se, Europese en Australische observatoria zijn echter zeer recent. Intussen 
hebben Charles Moore en Elisabeth Rather een onderneming opgericht met 
het oogmerk turn-key FORTH systemen te leveren aan observatoria, zieken¬ 
huizen, industrie, etc. 

Hoewel FORTH tot nu toe voor minicomputers was aangepast, zijn nu ook toe¬ 
passingen gerealiseerd op grote machines als b.v. de IBM 360/50, CDC 6400 
en UNIVAC 108 en op microprocessoren. RCA heeft zelfs FORTH geselecteerd 
als taal voor haar C0SMAC microprocessor. 

In augustus 1976, op een IAU-bijeenkomst in Grenoble, ontdekten we dat 
reeds een dozijn Europese astronomen met FORTH werkte. Wij besloten een 
FORTH gebruikersclub op te richten voor héét Europa en de Verenigde Staten 
met het doel om de 'verschillende gebruikersversies op elkaar af te stemmen, 
een minimumstandaard te definiëren en de overdraagbaarheid van systemen te 
bevorderen. 

De groep komt twee a driemaal per jaar bijeen en publiceert de bijdragen 
van haar leden. 

De secretaris van de Europese FORTH gebruikers club is: 

Dr. Hans Nieuwenhuijzen 
Sterrekundig Instituut 

Zonnenburg' > 2 

Utrecht. 

In het eerste jaaïwan het bestaan van de groep is o.a. een zeker niveau 
van stahdadrdwoorderi gedefinieerd en geaccepteerd, en is een systeem- 
beveiliging gerealiseerd die in belangrijke mate de kans op fatale fouten 
verkleint. 


*) FORTH Ine., 815 Manhattan Ave., Manhattan Beach, CA 90266, U.S.A. 
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Forth bezit een kwaliteit die noch in de astronomie noch in de informatica 
duidelijk wordt gezien omdat diegenen, die het leren kennen, fanatiek v68r 
of tegen Forth worden. Dit gedrag verhindert de werkelijke hoedanigheid van 
FORTH te zien, welke als volgt is: een zeer machtig gereedschap in bepaalde 
domeinen, beperkt in andere, in ieder geval een tussenschakel (interface) 
tussen systeem en gebruiker (intelligent verondersteld) welke een zeer fun¬ 
damentele rol speelt. 

Forth is niet uniek; omstreeks dezelfde tijd zijn veel andere talen ont¬ 
staan met ongeveer dezelfde doelstellingen. 

De zorg van de informatica over deze talen is gericht op de hiërarchieke 
gestructureerde programmering. FORTH bevindt zich midden in deze maalstroom 
van verschillende standpunten, maar ondanks dat heeft het een aantal zeer 
markante eigenschappen, gericht op data acquisitie systemen en controle van 
instrumenten. 

In dit handboek zal ik de verschillende aspecten van FORTH behandelen, de 
sterke maar ook de zwakke, welke men kan ondervinden bij het gebruik. 


Genève, juni 1977. 


Paul Bartholdi 


VOORWOORD van vertalers, bewerkers 

Door het werk van Paul Bartholdi te vertalen hopen wij een duidelijk beeld 
te scheppen van FORTH voor de Nederlandstalige gebruikers. 

Wij zullen ingeburgerde Engelse uitdrukkingen normaal gebruiken, zodat er 
een aansluiting blijft bestaan bij de overheersende Engelse litteratuur. 


Hans Nieuwenhuijzen 
Theo Gunsing 
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0.1 INLEIDING 

FORTH is geen ~ uitontwikkelde taal 

- systeem 

- vertaler 

- "interpreter” 

- virtuele machine 

- assembler 

- controletaal 

- besturingstaal, 

maar van alles een deel en soms een beetje meer. Dit is een vreemde 
manier van presenteren (negatief), maar het is zo gedaan om direct de 
diverse aspecten te tonen van FORTH zonder dat er eerst mee moet 
worden gewerkt. 

FORTH is ook geen uitgekristalliseerde constructie, die één keer en 
daardoor voor altijd gedefinieerd is. Zekere basiselementen zijn 
duidelijk wel ondubbelzinnig gedefinieerd, maar andere zijn implemen¬ 
taties van een uit te voeren taak. Niettemin is de overdraagbaarheid 
van het ene systeem naar het andere of van de ene computer naar de 
andere zeer groot. Bij dit soort acties is slechts een strikt minimum 
aan aanpassingen nodig. Oorspronkelijk is FORTH geconcipieerd als een 
zelfstandig geheel, zonder ook maar een verbinding te hebben met een 
systeem of bestaande taal. 

Om FORTH goed te kunnen bedrijven moet aan een aantal minimum 
voorwaarden voor de hardware worden voldaan, t.w.: 

"" ~ een centrale verwerkingseenheid (processor) 

/ ' \ , 

- een massa geheugen (magneetband, schijf, "floppy disc") 

• “ minder geschikt papierband 

- een console (besturingstelex) (of meerdere) 

[ - een of meerdere instrumenten om te sturen of uit te 

lezen door het systeem] . 

Een belangrijk oogmerk bij de constructie van FORTH is geweest het 
mogelijk te maken om een niet in de informatica ingewerkte snel in 
staat te stellen om toch met een computer zijn meetinstrumenten te 
beheersen. 
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Dankzij het werk van Svend Lorensen (ESO) is FORTH uitgebreid met een 
mogelijkheid om zonder eën zelfstandig FORTH massageheugen ingepast 
te worden in een bestaand "operating system” zoals RTE II/III van 
Hewlett Packard. Er zijn bezwaren aan te voeren tegen zo'n toepassing 
van FORTH, maar het maakt wel het inpassingsvermogen van FORTH 
duidelijk. 
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0.2 FORTH als "interpreter" 


FORTH moet op zo’n manier interactief gebruik mogelijk maken, dat de 
gebruiker direct het resultaat van zijn opdrachten kan zien inclusief 
foutmeldingen van dingen die niet gedaan mogen worden. 

Een "interpreter 1 ’ doet dit werk. De opdrachten worden direct uitge¬ 
voerd zonder een aparte compilatieslag. BASIC is hier een voorbeeld 
van met de volgende beperkingen: 

- beperkt aantal instructies 

- traag in uitvoering omdat elke "statement" eerst 
berekend en daarna vertaald moet worden voordat de 
uitvoering plaatsvindt. 

Bij FORTH is dit op twee manieren opgelost: 

/ \ 

- een zeer üitgebreide en elastische manier van 
invoeren van instructies 

- toestaan van compilatie van procedures, gebruik 
makend van dezelfde instructies als de "interpreter" 
zelf doet. 

De overgang van de ene modus naar de andere gaat uitzonderlijk snel en 
simpel. Deze eigenschappen kunnen worden gecombineerd tot directe 
uitbreidingen van de interpreter en zijn dan verder ook gewoon bruik¬ 
baar. 

Anders gezegd: 

Een instructie, ingegeven aan de console, wordt geïnterpreteerd en 
.direct geplaatst achter de laatst toegevoegde procedure, instructie, 
in de bibliotheek. Was dit een getal, dan wordt dit op de operatio¬ 
nele "stack" geplaatst. Betreft het een opdracht, dan wordt uit de 
bibliotheek het adress opgezocht van de routine met deze naam. Met 
dien verstande, dat van achter naar voren wordt gezocht, zodat al¬ 
tijd de jongste definitie wordt gebruikt. Alleen op dit moment wordt 
in de bibliotheek gezocht, een moeizaam werk voor de interpreter. 

Als men snel wil werken.dan moet men de interpreter mode dus niet al te 
veel instructies geven. 

f , * ' 

Anderzijds is de interpreter een hulpmiddel dat bijzonder nuttig is 
gedurende definitie- en testfase. 
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1.0 De verschillende stacks van FORTH 

FORTH gebruikt drie verschillende stacks bij de uitvoering van zijn 
taak. Deze zijn: 

1. De arithmetische of operationele stack; 

2. De "return stack"; 

3. De bibliotheek. 

De operationele stack bevat alle variabelen en parameters die niet 
expliciet zijn gedefinieerd. Algemeen geldt: 

Alle operatoren vinden hun operand(en) aan de top van deze stack, 
daar worden zij weggehaald en indien van toepassing vervangen 
door hun resultaten. 

De return stack bevat in principe het adres van de procedure waarmede 
verder zal worden gegaan na beëindiging van de huidige werkzame pro¬ 
cedure (instructie volgend na aanroep van genoemde procedure). 

In het merendeel van de implementaties bevat deze stack ook de para¬ 
meters van de lussen (DO-loops), De bibliotheek, als laatste, bevat de 
verzameling van instructies, die in de vorm van een of meerdere lijsten 
j zijn vertaald. 

I 

Opmerkingen : 

- de lengte van de returnstack is vast (30 8 meestal). 

- de positie en afmeting van de bufferzone is dynamisch 
en varieert tijdens de uitvoering van taken. Meestal 
is er geen bescherming tegen het overschrijven van de 
ene stack door de andere. 

- de bufferzone wordt gebruikt gedurènde de compilatie 
en interpretatie en moet minimaal een dertigtal 
woorden bevatten. 
































































































10 


1.1 De arithmetische/operationele stack 


Deze stack zal in het vervolg kortweg "de stack" worden genoemd. Er 
zijn een paar operatoren nodig om de top van deze stack te behandelen. 
Het doel van deze operatoren is de parameters in de goede volgorde te 
plaatsen voor de komende operatoren. Dit is waarschijnlijk het stuk 
van FORTH, waarmee men de meeste moeilijkheden ondervindt en waarin de 
meeste fouten worden gemaakt. 

Opm er king 1 : 

- de operatoren moeten hun parameters (operanden) aan 
de top van de stack vinden; 

- deze operanden worden daar vernietigd en - indien 
van toepassing - vervangen door het resultaat ver¬ 
kregen met de operatoren. 

a) "Stack pointers" 

SP bevat het adress van de top van de stack 

SBÖ is het adress van de top van de stack 

SP0 is het adress van de bodem van de stack. 

- De stack groeit van high naar low memory, terwijl de 
return stack van low naar high memory gaat. 

(Er zijn echter uitzonderingen.) 

Verwijderen van één of meer parameters van de stack 

DROP verwijdert een parameter van de stack 

n NDROP verwijdert n parameters van de stack. 

c) Verdubbeling van parameters op de stack 

DUP verdubbelt de parameter op de stack 

(ABD-op de stack wordt AABC-) 

idem voor parameter met twee locaties. 


Opmerking 2 : 


b) 


2DUP 
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d) Copiëren vanuit de stack 

OVER copieert een parameter naar de top van de 

stack 

20VER idem voor een dubbele parameter (2-woords 
parameters) 

n N/OVER idem voor een n-voudige parameter. 

n gf copieert de n^ e waarde op de stack boven op 
Plek d e stack. 

e) Permutaties aan de top van de stack 

SWAP ruilt de bovenste twee parameters op de 

stack van plaats 

2SWAP idem voor dubbele parameters. 

ROT permuteert de drie variabelen aan de top van 

de stack 

2R0T idem voor dubbele parameters. 

f) Communicatie tussen stack en geheugen 

a vervangt het adress op de stack door de in- 

houd van dat adress 

Da idem voor een dubbelwoord parameter 

(een adress op de stack!) 

! stopt het volgende woord van de stack in 

het adress boven op de stack 

D! stopt de volgende twee woorden van de stack 

op de adressen, aangegeven boven op de stack 
(het gegeven adress en de daarop volgende) 
(één adres op de stack). 

+! telt het tweede woord van de stack op bij 

het adress aangegeven op de top van de stack. 

% 

-1 idem, maar i.p.v. "telt op" nu "trekt af" . 

k ;1+! telt 1 bij de inhoud van het adress op de 

stack 

1-! trekt 1 af van de inhoud van het adress op 

de stack 
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1+ telt 1 op bij de top van de stack 

1” trekt 1 af van de top van de stack 

0SET maakt de inhoud van het woord met het 

adress op de stack gelijk aan 0 

1SET idem, met 1 i.p.v. 0 . 

O pmerk in g : 

- Daar SP in een indexregister kan zijn geplaatst 
is deze alleen bereikbaar gemaakt met: 

SPa , SP.' en SP+’ 


vv:A 


'lu 


d j/, 

•f ^ ^ K / % Q 


' Q,\J 

i r, i 


























































Voorbeelden : 



Het is vaak moeilijk om te volgen wat er op een stack gebeurt. Tekeningen 
zijn een erg goed hulpmiddel hierbij. In de hierna volgende tekeningen ia 
de top van de stack boven getekend, de instructies zijn er boven gegeven 
en bovendien onderaan van links naar rechts. 


a. Men wil de variabele (INTEGER) U de waarde 4 geven. 

U [ 4 


fc. Men heeft al een waarde i op de stack en wil 10 plaatsen in C(i) 
en 20 in D(i) : (C en D zijn AERAYS). 
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c. „ i en j zijn op de stack en men wil berekenen X(i) AND Y(i+j) 
AND Z(i-j+7) 
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1.2 De return stack 


De return stack bevat aan de top het adres waarvan de bijbehorende 
procedure wordt uitgevoerd na het beëindigen van de actuele (maakt 
recursiviteit mogelijk). Op het merendeel der installaties mag deze 
stack ook worden gebruikt als tijdelijke opslag geassocieerd met de 
procedure. In het bijzonder is dit het geval voor de DO loop waarvoor 
de parameters (tellers) in het algemeen op deze stack worden geplaatst. 

• 

Het-^gebruik als tijdelijke opslagplaats moet met de grootste voorzich¬ 
tigheid worden gehanteerd aangezien het systeem niet kan onderscheiden 
of er een parameter of return address op de stack staat. 

Anderzijds is de capaciteit veel kleiner dan die van de operationele 
stack en overschrijvingen komen vaak voor. Deze twee typen fouten zijn 
voor 90% de oorzaak van een "hang up" van FORTH. Het beveiligings¬ 
systeem, geïntroduceerd in 1977, tracht :.deze fouten al in de compila- 
tiefase te vóórkomen. 


Poi nt e rs voor de return stack 

RP bevat het adres van de pointer naar de top van de 

return stack 

RP0 bevat het adres van de pointer naar de plaats van de 

basis van de return stack 


de operator RPa zet de inhoud van RP op de stack 

de operator RP+I telt de inhoud van de top van de stack bij RP op. 


•ww 


N.B, Als RP aanwezig is in een register kan hij niet anders dan met 
bovenstaande twee operatoren worden bereikt. 
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PROG 

roept 

SPI 

in 

p 

en 

zet 

P+l 

op 

de 

return 

stack. 

SPI 

roept 

SP2 

in 

Q 

en 

zet 

Q+l 

op 

de 

return 

stack, 

SP2 

roept 

SP3 

in 

R 

en 

zet 

R+l 

op 

de 

return 

stack. 


Terugkeer vanuit SP3 geschiedt via de top van de return stack, zijnde 
R+l . Verderop in S wordt SP4 door SP2 aangeroepen en SP4 zet S+l 
op de return stack. Terugkeer uit SP2 geeft Q+l aan de top, dan P+l . 
na terugkeer in SPI etc. 

Opmerkingen : 1. Deze manier van "return addresa" manipulatie maakt het 
mogelijk 'na procedures recursief aan te roepen zonder 
complicaties. 

2. T>e return stack groeit evenals de operationele stack naar 
"low rnemory". (Er zijn echter enkele uitzonderingen.) 

N.B. De besturing van "return addressen" op een stack is nodig 

maar niet voldoende voor recursiviteit. Om dit te bereiken 
moeten ook alle variabelen en parameters van de locale 
, procedure op dezelfde manier worden behandeld. Zie hoofdstuk 
3.4. v 
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2.1 Rekenkundige bewerkingen 


FORTH kent verschillende getaltypes, o.a. 

16 bits integers (enkel woord) 

32 bits integers (dubbel woord) 

integerfracties (tussen -2.0 en +2.0) (enkel woord) 

32 a 48 bits floating point getallen. 

Het aantal bits hangt typisch af van de soort processor. 

Elk type variabele wordt bewerkt door een specifieke rij operatoren 
gekenmerkt door een letter vlak voor de operator. 

Deze zijn voor het optellen (+) 


integer 

+ 

dubbele integer 

D+ 

fractie 


floating point 

Tl 

r + 


Be programmeur moet zelf zorgen voor de koppeling van het type 
variabele met de juiste operator. Dit wordt niet door het systeem 
gecontroleerd. 

- Alle operatoren vinden hun operanden (.niet de adres¬ 
sen) op de stack 'alwaar zij deze vervangen door de 
resultaten van de operatie. Dit impliceert voor FORTH 
de reversed polish notation zoals bij zekere calcula¬ 
tors (HP, NOVUS, SINCLAIR, etc.). 

Het is hierbij practisch nooit nodig (tijdelijk) 
tussenresultaten top te slaan in een buffergeheugen. 

Een strategie om aan deze methode te wennen is de 
volgende: 

1. 3egin met altijd zonder tussenhaakjes te werken; 

2. Laat tussenresultaten op de stack. Het zal dan 
blijken dat, altijd op het moment dat zij nodig 
zijn, zij op de natuurlijke plaats worden gevon¬ 
den. 



20 . 


Opme rkin g 2 : 

- De Poolse notatie is niet erg natuurlijk en is moei¬ 
lijk terug te lezen zonder een terugvertaling naar de 
conventionele algebraïsche schrijfwijze. Anderzijds 
heeft ze een aantal voordelen boven de conventionele 
schrij fwij ze: 

~ er zijn geen haakjes meer nodig; 

- de afwezigheid van twijfel in de volgorde van de 
bewerkingen; 

% 

- de mogelijkheid om complexe operatoren te maken die 
op bijv. drie operanden werken. (Zie hiervoor bijv. 
de hierna volgende bewerkingen / en /MOD). 
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2.2 Lijst van ar ithmetische 

operatoren 



Integer Fractie Dubbel 

integer Floating point Nederlandse omschrijving 


a 

a 

Da 

Fa 

Vervangt het adres op de 
stack door de inhoud van 
dat adres. 


» 

• 

f 

• 

D! 

F.' 

Op de top van de stack 
staat een adres en daar¬ 
onder een getal. Deze 
operator stopt het getal 
in het adres. 


4 * 

+ 

D+ 

F+ 

Twee getallen op de stack 
worden vervangen door hun 
som. 

tww 

lS 


D- 

F- 

Twee getallen op de stack 
worden vervangen door hun 
verschil. 

\u< i 

^ * 

* 

* 

D* 

F* 

Twee getallen op de stack 
worden vervangen door hun 
product. 


/ 

,/ 

D/ 

F/ 

Twee getallen op de stack 
worden vervangen door hun 
quotiënt. 


MOD 


DMOD 

FMOD 

Als / . Nu echter rest op 
de stack. 


/MOD 




Als MOD . Nu quotiënt bo¬ 
ven op de stack, de rest 
daaronder. 


ABS 

ABS 

DABS 

FABS 

Verandert een getal op de 
stack tot zijn absolute 
waarde. 


MINUS 

MINUS 

DMINUS 

FMINUS 

Keert het teken om van het 
getal op de stack. 


MAX 

MAX 

DMAX 

FMAX 

Laat het maximum van twee 
getallen op de top van de 
stack. 


MIN 

MIN 

DMIN 

FMIN 

Laat het minimum van twee 


getallen op de top van de 
stack. 


/ Vermenigvuldigt twee ge¬ 

tallen op de stack (net 
onder de top) en deelt 
het resultaat door het 
getal aan de top van de 
stack met behoud van de 
dubbele precisie geduren¬ 
de deze bewerking. 

Telt éën op bij het getal 
op de stack. 


1 + 



1 - 

i+: 

I-: 

FLOAT 

Opmerkin g 


Trekt één af van het ge¬ 
tal op de stack. 

Telt één op bij de in- 
houd van het adres dat 
gegevett is op de top van 
de stack. 

Als 1+.' , maar nu met 
aftrekken. 

DFLOAT Zet eeh integer om naar 

zijp equivalent in 
floating point. 

FIX of DFIX Zet een floating point 
| getal om naar een enkele 

of dubbele integer. 


Al deze operatoren vernietigen de parameters op de stack 
en plaatsen hun resultaat op de stack indien aangegeven. 

De volgorde van parameters is dezelfde als wanneer de 
operator er normaal was tussen geplaatst. 

*/ ) - ( A*B/C ) . 


Voorbeeld : ( A B - ) 


( A-B ) ; (ABC 



.3 Lijst van logische operatoren 


Ï2£®8®ï F ra c ti e D ubbe l in teger Floatin£_goint Ne d er l an ds e o msc hr ijving 


SS 

= 

D= 

F= 

Vervangt de twee parame¬ 

H= 

H= 



ters op de stack door 
het tesultaat Van de 

< 

< 



logische bewerking bij 

> 

> 



het uitvoeren van de 

0< 

0< 



vergelijking: 

• 

Als het waar is dan ^0 

0= 

0= 



Als het onwaar is dan =0 . 

AND ' 




Vervangt de parameters 
door hun logisch product. 

OR 




Vervangt de parameters 
door hun logische som. 

XOR 




Vervangt de parameters 
door hun logische ex- 
clusive or . 

BNOT 

of LNOT 



Vervangt de parameter 

1 c 




door zijn logische in¬ 
verse . 


Opmer king : 

- BNOT en LNOT zijn gelijk aan 0= en zij moeten alleen 
worden gebruikt als er kans is op vergissingen met een 
echte arithmetische vergelijking. 
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f V 

2.4 Arithmetische functies ^van floating point getallen (reals)J 


In hetgeen hierna komt 

zijn de volgende conventies gebruikt 

a 


geeft 

een hoek in radialen 

i» j» 

k 

zijn integers 

f 


een real 

f+ 


een positieve real (positief definiet) 

Gebruik 

Resultaat 

Omschrijving 

i j + 

k 


i tot de macht j 

f i F+ 

f 


f tot de macht i 

f+ ALOG 

£ 


natuurlijke logarithme van f+ 

f+ ALOG10 

f 


briggse logarithme van f+ 

f ATAN 

a 


are tangens van f 

a COS 

f 


cosinus van a 

f EXP 

f+ 


e f 

a SIN 

f 


sinus van a 

f+ SQRT 

f+ 


wortel van f 

PI 

f 


TT 



i 
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3.0 De woordenlijst 


De woordenlijst (of dictionaire) bevat de verzameling procedures en 
gegevens welke op een zeker moment aanspreekbaar zijn. Alhoewel ze een 
naam hebben zijn ze niet alfabetisch gerangschikt, maar in de volgorde 
waarin zij zijn gedefinieerd. In deze woordenlijst is een aantal voca¬ 
bulaires, die bestaan uit een verzameling woorden, welke bereikbaar 
zijn via pointers« De pointer NIL (=0) geeft het einde aan van zo n 
vocabulaire of van de woordenlijst. (Zie 3.8) 

De vocabulaires kunnen aan elkaar worden geregen door het laatste 
woord van de ene te laten wijzen naar het eerste van de andere. 


Tijdens de interpretatie- of compilatiefasen kan slechts één vocabu¬ 
laire tegelijkertijd worden aangesproken, maar wel mag de gehele woor¬ 
denlijst worden gebruikt (vocabulaires door elkaar) tijdens de execu¬ 
tiefase. 

Tenslotte kan een vocabulaire worden gedefinieerd in de FORTH vocabu¬ 
laire, zodat ze altijd beschikbaar is. Ook kan ze in een andere voca¬ 
bulaire worden geplaatst zodat ze dan gedurende activiteiten in de om¬ 
hullende vocabulaire bereikbaar blijft. 

De vocabulaires vormen een boomstructuur waarvan de FORTH-vocabulaire 
de stam is 

Normaal bevat FORTH minstens drie vocabulaires: 


ASSEMBLER 


FORTH 

FORTH 


EDITOR 
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3.1 Structuur van een element, woord uit de woordenlijst 

Elk element van de woordenlijst is opgebouwd uit twee gebieden: 
een header (of kop) 

een parameterveld (parameters, instructies, etc.) 

De header heeft altijd dezelfde vorm en wel zoals in de onderstaande 
figuur is gegeven: 



H= 

C 1 

c 2 

C3 

precedence 


pointer naar 

pointer naar 

bit 


volgende entry 

geassocieerde "code 11 


parameters 


De header neemt vier woorden in op miniprocessoren (16 bits woorden) 
of minder als de woordlengte van de machine het toestaat. 

Elke entry heeft een naam die voornamelijk naar de lengte wordt ge- 
interpreteerd, en wel: 

Ifc is het aantal karakters yaaruit de naam bestaat 

C, C 2 C-j de eerste drie karakters van het woord. 

(Er zijn systemen waarbij meer karakters worden gebruikt, 
tot nu toe 256 als maximum). 

Het precedence-bit geeft aan of de entry uitgevoerd of gecompileerd 
zal worden in de nieuwe definitie (zie 3 . 3 ) (als = 1 , dan uitvoeren,) 

De eerste pointer wijst naar de voorgaande entry in de woordenlijst. 
Tijdens interpretatie of compilatie wordt met behulp'van deze pointer 
de woordenlijst afgezocht totdat een entry wordt gevonden met 
H 5 Cj C 2 C 3 welke overejgn&tetit met het gezochte. (Het is mogelijk om 
een stuk van de woordenlijst of een vocabulaire onbereikbaar te maken 
(te beveiligen) door de pointer te veranderen, waardoor het effect 
wordt verkregen alsof er in deze Jijst is geknipt. 


27 . 


De pointer naar de geassocieerde code mag worden opgevat als een 
^machine instructie” welke met de entry is verbonden. 

Op het moment van interpretatie of uitvoering is dit de geassocieerde 
code welke uitgevoerd gaat worden en bij compilatie wordt het adres 
waar deze pointer staat in de woordenlijst geplaatst (net als een 
machine instructie). 

De header heeft een vaste lengte terwijl het parameterveld een 
wisselende lengte heeft of zelfs geheel kan ontbreken. 

Men vindt in het parameterveld bijvoorbeeld de waarde van een 
constante, een variabele, een vector of matrix of een lijst met 
adressen van procedures of machine-instructies. In het laatste geval 
wijst de pointer van de geassocieerde code naar het woord dat volgt 
op de pointer. (Zie 3.2) 

Ogmerkingen_oyer_de_naam_in_een_header: 

1. Elk ASCII karakter mag worden gebruikt op elke 
plaats. 

2. Twee namen met dezelfde lengte en gelijke karakters 
op de eerste drie plaatsen zijn voor FORTH identiek 
(synoniemen). 

3. In het geval van synoniemen (2) kan de laatste van 
de voorgaande gebruik maken, maar de voorgaande is 
vervolgens niet meer vindbaar voor FORTH bij zoeken 
in de woordenlijst. (Zie 3.4) 



3,2 De procedures 


De bijzondere manier van schrijven en het gebruik van procedures is 
een fundamentele karakteristiek van FORTH. Zij maken een hiërarchische 
programmering heel eenvoudig mogelijk. 

Een nieuwe procedure wordt op de volgende manier ingevoerd; 

; < naam van de procedure > < body van de procedure > ; J 

De naam van de procedure is vrij. Alleen moet worden bedacht dat er 
een kans bestaat op het vormen van synoniemen. 

De "body" van de procedure is een lijst van namen van andere procedures 
in de volgorde waarin zij moeten worden uitgevoerd. 

(Herhalings- of keuze-operatoren kunnen de volgorde van uitvoering be— 
invloeden (zie hoofdstuk 4)). 

Voorbeeld : Een astronomisch fotometrisch experiment bevat; 

- een nulpunts ijking, 

- opmeting van een ster, 

- opmeting achtergrond van de hemel, 

- afdrukken van de resultaten. 

Men kan met de procedure MEET definiëren als 

; MEET NULPUNT STER HEMEL PRINT ; 

Met de procedures NULPUNT etc., welke op hun beurt op dezelfde manier 
gedefinieerd kunnen zijn; 


; NULPUNT 

C-U RESET C-B RESET 

C-U RESET ; 

; STER 

CENTREER 




FILTER-U 

INTEGER C-U 1 



FILTER-B 

INTEGER C-B .' 



FILTER-V 

INTEGER C-V 1 • 





I», 

Deze manier van aanpak van procedures is bekend onder de naam van 
”TOP DOWN DESIGN" of "STEPWISE REFINEMENT".. De basisgedachte bij deze 
werkwijze is het schrijven van korte procedures die in een oogopslag 
te overzien zijn zonder zich zorgen te maken hoe op bepaalde andere 
niveaux iets wordt gerealiseerd. Zo zal men in het voorbeeld op het 
moment dat men STER wil gebruiken zich alleen bezighouden met het 
feit dat men een ster wil observeren. Hoe dat wordt uitgevoerd is van - 
later zorg. Dat is eerst van belang op het moment dat STER wordt 
gedefinieerd. Uiteindelijk zullen er procedures worden opgesteld die 
in detail beschrijven wat er moet gebeuren. 

Opmer king : 

- In FORTH kan men een procedure eerst aanroepen nadat ze 
is gecodeerd. Zo zal de procedure MEET niet de eerst 
maar de laatst te definiëren procedure zijn. Dit is het 
tegenovergestelde van de beschreven techniek en wordt 
ook wel "BOTTOM UP CODING" genoemd met de volgende twee 
grote voordelen, welke hierna zullen worden genoemd; 
Eerst nog even: de analyse gaat van grote lijnen naar 

details, terwijl de codering in omgekeerde volgorde 

, Analyse Codering x 
gaat, l TOp - B0TT0M up > • 

De voordelen zijn: 

1. Zodra een procedure (in detail) is gecompileerd, kan 
ze direct worden getest. In ons voorbeeld plaatst de 
procedure FILTER-U het filter U in de gewenste posi¬ 
tie. Het is uiterst eenvoudig om dit commando te ge¬ 
ven en te controleren of de procedure goed wordt 
uitgevoerd. Ingeval van twijfeT is de procedure zo 
simpel dat fouten makkelijk worden ontdekt. In het 
vervolg stellen we dat alle procuderes op een lager 
niveau getest zijn en correct bevonden. 

2. Het is zonder meer mogelijk om de procedures, onaf¬ 
hankelijk van het niveau, door verschillende personen 
te laten schrijven. 

In ons voorbeeld kunnen de elementaire procedures, 
die de fotometer besturen, worden geschreven door de 
technicus die de computeraansluiting heeft gereali¬ 
seerd. De procedure MEET en de functies van het waar- 
nemingsprogramma kunnen in dit voorbeeld door de as¬ 
tronoom zelf worden geschreven zonder dat hij zich 

I 

hoeft in te werken in de hardware. 
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Een ander aspect van "TOP DOM" programmering is de theoretische 
manier van aanpak die zich er in eerste instantie niet druk om maakt 
of de procedures wel kunnen worden gerealiseerd. (Het probleem wordt 
vooruitgeschoven.) Ondanks alle voorzorgen kan een contradictie ont¬ 
staan tussen het algehele idee en de implementatie in detail. De 
combinatie "TOP DOWN" - "BOTTOM UP" (of wel heen en weer) geeft echter 
mooie gelegenheid om deze contradicties tijdig op te sporen en correc¬ 
ties te plegen. Dit is erg handig, daar op verschillende niveaux 
BOTTOM en TOP van een procedure een andere definitie (inhoud) kunnen 
hebben. (De technicus ervaart een andere BOTTOM dan de astronoom.) 

Welk inzichl men ook prefereert, één ding is uitermate belangrijk, 
namelijk de interface tussen de diverse niveaux. Veel spectaculaire 
fouten treden op, in grote informatica projecten, omdat de status van 
het systeem, verkregen op een hoger niveau, niet correct wordt door¬ 
gegeven aan routines op een meer elementair niveau. In FORTH hoeft men 
voor dit gevaar eigenlijk alleen de operationele stack in de gaten te 
houden, daar deze de verbinding tussen de routines vormt. 

Verder moet men er wel op letten dat men de globale variabelen niet 
verandert in een subroutine tenzij wordt gegarandeerd dat deze 
variabele is hersteld zodra de routine wordt verlaten (bij hardware 
interrupts of catastrofes!). 

Dit interface probleem is van kapitaal belang aangezien er meerdere 
mensen samenwerken in een gemeenschappelijk project. Het is dan ook 
het eerste punt dat moet worden bevroren, en gedurende de programma¬ 
ontwikkeling moet de specificatie streng worden nageleefd en gecon¬ 
troleerd. Uiteindelijk zal er van elke routine een beschrijving moeten 
komen waaruit duidelijk blijkt wat er met de stack gebeurt, liefst een 
overzicht met de status van de stack voor en nadat de routine is 
gebruikt. 

Verder is FORTH rijk aan namen en typen van variabelen, hetgeen > 
gemakkelijk verwajring kan stichten, wat ook weer pleit voor een 
duidelijke beschrijving. 
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Opmerking : 

- Terwijl wij tot nu toe over "BOTTOM UP" codering hebben 
gesproken wordt door de ontwikkelaars van gestructureerde 
programmering sterk aanbevolen om een "TOP DOWN" test van 
het systeem uit te voeren. Deze twee standpunten zijn 

- hoewel niet op het eerste gezicht - toch 'redelijk in 
overeenstemming met elkaar. "TOP DOWN" testen verwachten 
van de programmeur dat hij routines op meer elementair 
niveau vervangt door vereenvoudigde versies 

met dezelfde interface-eigenschappen. Deze manier van 
werken heeft wel een aantal voordelen, bijvoorbeeld: 

- een belangrijk programma kan al worden gebruikt 
(getest) voordat alle subroutines echt zijn geprogram¬ 
meerd. 

- de interfaces tussen niveaux kunnen al worden getest 
en er wordt tevens inzicht verkregen in de mogelijk¬ 
heden om de interfaces compatible te houden. 

Deze methode is dan ook geaccepteerd voor belangrijke projecten. 

Men neemt een routine op topniveau met een aantal routines van een 
dichtbijgelegen niveau en test deze in een enkele sessie op de 
computer. Toch wordt intern in zo'n verzameling van routines weer over¬ 
gegaan op de "BOTTOM UP" methode, hetgeen overeenkomst met het FORTH 
concept niet alleen voor wat betreft de compilatietechniek maar ook wat 
betreft het testen en toevoegen aan het reeds bestaande pakket direct 
na compilatie. FORTK is nu een van de weinige systemen, die dit genre 
van faciliteiten geven ("incrementeel compileren"). FORTH procedures 
zijn over het algemeen erg kort en om deze reden is het absurd om 

"TOP DOWN" testen op alle niveaux consequent vast te willen houden. 

/ 

Een voordeel van TOP DOWN" analyse is dat de specificaties van de 
interfaces tussen de niveaux, constructie van simulaties ver¬ 
gemakkelijkt en door FORTH kan» lang voordat het instrument is 
gerealiseerd, op hoog niveau dit logisch zeer goed worden aangepakt. 
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3.3 Compilatie en uitvoering 


De compilatie van een procedure (beginnend met :) start met de 
constructie van een "bibliotheek-entry". 

De pointer naar de voorgaande entry wordt pas ingevuld als de 
afsluiting (door ;) wordt gerealiseerd. Voorlopig bevindt dat adres 
zich nog in de locatie LAST . 

STATE, die de compilayie of executie-mode bepaalt, wordt daarna gelijk 
gemaakt aan 1 (0 = executiemode) 

De tekst van de procedure wordt verder sequentieel geanalyseerd, woord 
voor woord, onderwijl zoekend in de bibliotheek naar adressen welke 
corresponderen met de entry van het gezochte woord , en indien dit 
wordt gevonden, dan het adres van de pointer naar de geassocieerde 
code plaatsend op de volgende vrije plaats in de bibliotheek. Echter, 
als het ’precedence bit" van het gevonden woord gelijk is aan 1 dan 
wordt niet het adres van de code in de bibliotheek geplaatst maar 
wordt die code uitgevoerd zonder enige vertraging. 

Als uiteindelijk de ; wordt herkend ( <’; > speelt dezelfde rol als 
RETURN en END in Fortran ) wordt STATE = 0 (terug weer in execu¬ 
tiemode) gemaakt en de "entry 1 * is definitief in het systeem aange¬ 
bracht, terwijl alle pointers bijgewerkt zijn. 

Als een woord niet wordt gevonden stopt de compilatie en wordt 
controle gegeven aan de operateur. De compilatie moet dan weer 
opnieuw worden gestart na correctie. 

Om tijdens de compilatie de executiemode te kunnen veranderen zijn er 
twee operatoren t.w.s 

[ stopt compilatie en start executie van de volgende woorden 

] stopt executie en start compilatie van de volgende woorden 

Deze operatoren hebben verder geen invloed op de bibliotheek. 

FORTH is bijzonder geschikt om compacte gecompliceerde routines te 
maken. In het algemeen kost de referentie naar een andere procedure 
maar één woord (op grote machines een half woord). 

Er zijii enkele uitzonderingen op deze 1 op 1 relatie. Een daarvan 
wordt besproken i p. § 4.6 . De andere betreft de #? litterals ï? in een 
procedure. 



GEHEUGENSTRUCTUUR NA COMPILATIE VAN HET 
VOORBEELD -MEET (3.2.) ' 


r m 


NULPUNT 
STER •' 
HEMEL 
PRINT 
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waarde 


Een pointer ie niets anders dan een woord.dat het adres 
bevat van het objekVwaarnaar wordt gepoint. 


TELLER 



c r> 
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Neem bijvoorbeeld: 

: VIJFVOUD 5 * ; 

Deze routine vermenigvuldigt het getal op de stack met 5 . 

De programmeur kan de volgende mogelijkheden kiezen: 

1) Als de constante 5 erg veel voorkomt, dan kan er een entry worden 
gemaakt van het type constante met de waarde en de naam 5 . Op deze 
manier zijn 0 en 1 reeds gedefinieerd in het basissysteem. 
Zodoende is er in VIJFVOUD een verwijzing naar een routine met de 
naam 5 die een vijf op de stack zet. 

2) Zonder een definitie vooraf kan het ook. Als er niets wordt onder¬ 
nomen dan zal de compiler automatisch bij het treffen van een cijfer 
(tijdens compilatie), in dit geval de 5, eerst een aanroep compile¬ 
ren naar de routine LIT , en daarachter het getal plaatsen. 

LIT, is een routine die het volgende getal op de stack plaatst. 



Executie 


Veronderstel dat wij de naam aanroepen (door hem bijv. in te typen) 
van een procedure of van een entry die al gecompileerd is. 

Wat gebeurt er dan? 

De interpreter vindt de entry in de bibliotheek en gaat, omdat ze in 

de executiemode is (en niet bezig met <:> - <;> ) direct over 

tot uitvoering van de geassocieerde code. 

Zo kan men wel ee nv oudig een 5 op de stack zetten door een 5 in te 
typen. \ 
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Nemen we het voorbeeld VIJFVOUD . De pointer naar de geassocieerde 
code wijst naar <:> welke een van de basisroutines van FORTH is. 

In de FORTH logica vormt de <:> een centrale beheerseenheid met de 
functie om alle volgende aangeduide codes achtereenvolgens uit te 
laten voeren. Dat betekent dat nu eerst de code wordt uitgevoerd die 
geassocieerd is met LIT, dan idem voor * en vervolgens voor <s > 
welke ieder voor zich mogelijk ook <;> routines zijn die de <;> 
routine voor hetzelfde doel gebruiken. Om al deze aanroepen te kunnen 
onderscheiden (voor <:>) is de instructie teller IC (FORTH instruc¬ 
tie teller) in gebruik die altijd naar de volgende FORTH instructie 
wijst (een analoge rol als het P register van de processor). 

Aan het eind van de executie van de routine LIT, moet deze , de 
instructie teller ophogen om de controle straks over te geven naar de 
volgende routine welke direct na 5 komt; dit is dus een extra in¬ 
greep (een extra increment om de 5 te passeren). 


3.4 Recursieve aanroep - FORWARD - DEFINE 


Recursieve aanroe pen 

De aanroep van een procedure binnen zichzelf kan niet in FORTH omdat 
de entry nog niet compleet is in de bibliotheek op het moment van 
aanroepen. Wel mag een synoniem worden gebruikt met dezelfde naam als 
de procedure zelf. Toch is dit erg handig, daar het mogelijk is om 
tamelijk complexe procedures op deze manier in twee fasen te realise¬ 
ren zonder twee verschillende namen te moeten gebruiken. Dit is toe¬ 
gepast in het volgende voorbeeld ( LIFE, Jan Vermue ) : men heeft 
twee matrices OLD en NEW . EXCHANGE permuteert deze matrices. 
CLEAR plaatst 0 in de matrix NEW met: 

: CLEAR CLEAR EXCHANGE CLEAR ; 

Nu stopt men 0 in beide matrices. 

In de nieuwe CLEAR wordt nu 2* de oude. CLEAR aangeroepen, 
terwijl deze laatste vervolgens niet meer aanroepbaar is. 

Het is mogelijk met behulp van de routine MYSELF een recursieve 
aanroep te genereren in FORTH . De procedure is als volgt gedefinieerd 

: MYSELF LAST a , ; IMP MYSELF 

Als MYSELF nu in een procedure gebruikt wordt is dit een recursieve 

manier om de actuele routine aan te roepen (zie het volgende voor¬ 

beeld) . 

Voorbeeld ; Berekening van Ni = N. [ (N—1)ï] als N > 1 

* 1 als N * 1 of 0 

: FACULTEIT DUP 2 < IF DROP 1 

ELSE DUP 1- MYSELF * 
THEN ; 


Belangrijke opmer king : 

- De return stack in FORTH geeft de mogelijkheid tot re¬ 
cursiviteit maar in FORTH worden de locale parameters 
en variabelen niet behandeld op deze stack. Dit is 
overgelaten aan de programmeur, die voor dit doel de 
operatioriele^stack dan ook kan gebruiken. Hiervoor zijn 
enkele belangrijke regels: 
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1. Geen enkele variabele buiten die welke op de stack 
zijn geplaatst mag in een recursieve procedure worden 
veranderd. 

2. Alle variabelen die veranderd mogen worden moeten 
worden gedupliceerd (worden geherdefinieerd) binnen 
in de recursieve handeling. 

3. Alle parameters moeten geherdefinieerd zijn, voordat 
de recursieve procedure aanroep gepleegd wordt 
(MYSELF). 

Hen moet op de begrenzing van de stacks passen, vooral op die van de 
return stacks 

Zij r het aantal recursieve aanroepen 

m het aantal parameters 

n het aantal locale variabelen 

d het aantal stappen in de DO loop in een recursie stap, 

dan zijn 

r (m + n) posities op de operationele stack 
r (1 + kd) posities op de return stack 

nodig, waarin 

k het aantal posities per DO-loop stap (d.i. 2 of 3) is. 

Afgezien van de lengte van de stacks geven recursieve procedures ook 

nog vaak aanleiding tot de volgende fouten: 

\ 

locale parameters en variabelen zijn niet op het goede moment op 
de stack of er wordt vefgeten ze op de stack te plaatsen aan het 
eind van de procedure; 

- de diepte van de recursiviteit is niet voldoende beheerst met het 
risico dat door "geleveled" wordt tot ongedefinieerdheid. 

Het volgende geval tenslotte is een lineaire hiërarchieke constructie 
die niet mogelijk is: 


A B 
B A 


9 
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Met de volgende kunstgreep is dit echter op te lossen: 

FORWARD A 
: B A ; . ^ 

DEFINE A : kj B ; 

V 

FORWARD A maakt een bibliotheek entry voor A die door B kan 
worden gebruikt. DEFINE A modificeert deze dummy entry volgens de 
procedure die direct hierna wordt gegeven, vervangt de dummy door de 
bedoelde procedure. Deze manier kan ook worden gebruikt om recursivi- 
tiet te maken, maar is trager door een extra aanroep in het eerder ge¬ 
geven voorbeeld. 

De voorbeelden in V.3 en V.4 gebruiken de recursiviteit en de voor¬ 
waartse definitie. 

Het geval van FACULTEIT kan best worden opgelost zonder recursivi¬ 
teit, VON-KOCH en HILBERT daarentegen zijn bijna niet te programme¬ 
ren zonder deze mogelijkheden (zie V.3 en V.4). 

N.B.: Er is geen beperking in het aantal procedures gedefinieerd met 
FORWARD < naam > 


Men mag net zoveel definities geven als men wil tussen 
FORWAFD < naam > en DEFINE < naam > 

DEFINE < naam > moet direct voor de corresponderende constructie 
komen. Strikt genomen mag er iiiets tussen de twee in staan. 

Het is niet absoluut noodzakelijk dat de naam van de constructie 
dezelfde is als die van DEFINE. Daarentegen moeten de namen 
volgend op FORWARD en DEFINE identiek zijn voor eenzelfde 
procedure. 
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3.5 Operatoren werkend op de bibliotheek (woordenlijst) (gedurende de com- 
™"" ~ ”™ —— pilatie) 

In principe zijn alle bewerkingen op de woordenlijst automatisch. Het 
kan echter voorkomen dat men de bibliotheek wil manipuleren om bijvoor¬ 
beeld nieuwe procedures voor de interpreter te maken. 

Hiervoor zijn de volgende operatoren: 

HERE zet het adres van het eerste vrije woord in de biblio¬ 

theek op de stack. 

, zet de inhoud van de stack in de plaats aangewezen door 

HERE, terwijl HERE met 1 wordt verhoogd. 

(Precedence bit * 0). 

ADOPT als < , > maar nu met precedence bit = 1 , 

d.w.z. hij wordt uitgevoerd tijdens compilatie en niet 
tijdens executie fase. 

DP variabele (of register) die het adres van het eerste 

vrije woord in de bibliohteek aangeeft. 

Als DP een register is, dan is hij niet anders aanroepbaar dan met 

DPa DP! en DP+! 

Voorbeeld : HERE is gecodeerd als : HERE DP a ; 

of : HERE DPa ; 

0IMP < naam > verandert het precedence bit van de routine naar 
0 . 

1IMP < naam > idem, precedence bit naar 1 . 

?DEF < naam > laat een : 

1 op de stack als de procedure al een synoniem 
heeft ; 

0 op de stack als de naam not niet is gebruikt . 

COMPILE < naam > zet in de volgende plaats van de bibliotheek 

het adres van de pointer die wijst naar de code 
behorend bij < naam > onafhankelijk van de 
toestand van het precedence bit. 
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FORGET < naam > vergeet alle definities in de bibliotheek na 

en inclusief de aangehaalde procedure (naam). 
Zijn er synoniemen in het spel, dan wordt al¬ 
les tot en met het laatst gedefinieerde syno¬ 
niem vergeten. Op deze manier wordt het voor¬ 
gaande aan de synoniem weer bereikbaar. 

Opmerking : 

- FORTH start altijd met een lege definitie : TASK ; 

Door FORGET TASK te geven, kan alles wat zelf is ge¬ 
definieerd weer worden vergeten. 

Men kan deze techniek zelf erg handig gebruiken tijdens 
programma-ontwikkeling. 
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3.6 Wezen en hun adoptie 


Wezen zijn procedures (j^ormaal of in assembler) die slechts voor een 
zeer specifiek geval worden gebruikt. De header, in gebruik om terug¬ 
vinden mogelijk te maken, is in dit geval niet nodig en alleen een 
pointer naar de geassocieerde code is noodzakelijk. 

Er zijn twee FORTH-manieren om wezen te maken; 

- met de procedures ORPHAN en ;ORPHAN 

- met de procedure ORCX of :ORX 

P roc ed ure s_ORPHAN (Ass en bie r) _en_ ;ORP HAN (Forth) 

Deze procedures creëren een gereduceerde entry (alleen pointer naar 
geassocieerde procedure) en laten het adres van deze pointer op de 
operationele stack. 

Vervolgens kan de pointer worden opgepakt met de operator ADOPT 
binnen een normale procedure. 

Op deze manier is de wees ondergebracht. 

Voorbeeld : De operator ELSE voor de HP 2100 versie 

ORPHAN (Spring naar de inhoud van het volgende woord in 
de procedure) 

IC I) LDA, IC STA, NEXT, 

: ELSE LIT, ADOPT , HERE 0 , SWAP THEN ; 

IMP ELSE 

Na compilatie wordt de volgende structuur in het geheugen gevonden. 
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de geassocieerde code volgt direct 

vees zonder header 

terugkeer naar de interpreter 

precedence bit opgezet door IMP ELS 
normale procedure 

zet het volgende voord op de stack 
(in dit geval het adres van de vees) 

zet de inhoud van de stack in de bibliotheek 

zet het adres van het volgende voord uit 
de bibliotheek op de stack 

zet 0 in dit adres 

‘ zie IF en THEN 

■ 

einde van de procedure 


v 
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:ORPHAN doet hetzelfde maar nu voor een FORTH procedure. 

ORCx en :ORx met x is een cijfer (0- ■+■ 9) spelen dezelfde rol 
als ORPHAN en :0RPHAN maar maken het mogelijk verschillende wezen 
tegelijk te maken (10 stuks). In dit geval echter wordt het adres 
van de wees niet op de stack gezet, maar in een buffertje geplaatst. 
De wees wordt geadopteerd met ADOx waarin x correspondeert met de 
gewenste wees. 

Dit adres blijft beschikbaar totdat de creatie van een nieuwe wees er 
over heen schrijft. 

Men moet erg oppassen met re-entrant procedures, daar het mechanisme 
met de wezen hierop (nog) niet berekend is. 


*) of A' -+-N met A 

B 


is synoniem voor 1 
is synoniem voor 2 


etc. 
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3.7 Drie fundamentele procedures 


NEXT : en ; 


Deze procedures zijn van vitaal belang voor de werking van FORTH. 

Zij maken het mogelijk om de controle over te geven aan simultane en 
sequentiële procedures. Daar zij erg vaak worden gebruikt, moeten zij 
met betrekking tot de gebruikte processor geoptimaliseerd zijn. 

Onderaan in de hiërarchie van een procedure, d.w.z. de procedure die 
zelf geen andere meer aanroept, vindt men een in machinetaal geschre¬ 
ven routine. Deze routine moet impliciet of expliciet (zie 5.3) eindi¬ 
gen met NEXT . NEXT maakt het mogelijk om controle over te geven 
naar een andere routine op hetzelfde niveau. Merk op dat een in 
assembler geschreven routine ook dient te eindigen met NEXT . 

: en ; openen en sluiten een routine op hoog niveau (alles behalve 
assembler). Deze procedures beheersen de return stack. 

De volgende voorbeelden beschrijven de implementatie van deze procedu¬ 
res op een HP 2100 processor. Dit is een machine met twee arithmetische 
(algemene) registers A en B die ook als gewone adressen (0 en 1) 
behandeld mogen worden. 


LDA, LDB 

STA, STB 

ISZ 

INA, INB 

-INR 

JMP 


breng de inhoud van de geheugenplaats over naar het 
gerefereerde register, 

plaats de inhoud van het register in de geheugen¬ 
plaats, 

increment de geheugenplaats en skip als 0 , 
tel 1 op bij de inhoud van het register, 
een macro die één aftrekt in een geheugen locatie, 
een onconditionele sprong. 


1) Verbindingen met de strakke lijn geven de status vóór uitvoering 
van de code. 

2) Met stippellijn geven ze de status n3 uitvoering 


Kleine letters geven geheugenadressen. 

Staan ze buiten een vak, dan is het het adres van dat vak. 
Staan ze er dn, dan is het een pointer naar een adres. 



Uitvoering van NEXT 



NEXT 

LDB 

IC,I 

/x rB 


ISZ 

IC 

n+1 - IC 

.NEXT 

LDA 

B/I 

£*) -+ RA 


JMP 

A,I 

co 


IC wijst altijd naar de volgende procedure 
die moet worden uitgevoerd 








Uitvoering van de met < : > geassocieerde code 


return stack 



e procedure 
titvoering 

n— 



voorgaande in bewerking 
zijnde procedure 


Cl 

C3 








STA IC -v — IC 

J!*P NEXT — NE 
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3.8 De vocabulaires 


Zoals men in het begin van dit hoofdstuk kan zien kan de bibliotheek 
een boomstruktuur van "lijsten" zijn waarin het taogelijk is gebruik 
te maken van diverse deelverzamelingen (takken). 

Deze vertakte structuur is alleen een logische weergave waar niets van 
te zien is in het geheugen. De entries van de vocabulaires ASSEMBLER 
en FORTH bijvoorbeeld staan in het geheugen gewoon door elkaar. 

Een vocabulaire wordt gecreëerd met de volgende procedure (onafhanke¬ 
lijk van de inhoud van deze vocabulaire)-: 

VOCABULARY < naam > 

Direct na het geven van deze opdracht bevindt men zich in de nieuwe 
vocabulaire (de actuele ~). 

Opmerking 

- Noch CONTEXT noch CURRENT zijn op dit moment veranderd. 

Een vocabulaire kan op twee wèl verschillende manieren worden 
gebruikt: 

1. bij het opzoeken van een reeds gecreëerde entry, 

2. bij het toevoegen van een entry aan de lijst. 

Elke vocabulaire heeft een pointer die naar de laatste toegevoegde 
entry wijst. Twee pointers in het systeem geven elk ogenblik aan 

- in welke vocabulaire er gezocht zal worden : CONTEXT , 

- in welke vocabulaire de volgende entry zal worden geplaatst : 
CURRENT . 

CONTEXT en CURRENT wijzen in feite naar een pointer van de biblio¬ 
theek die zelf naar de laatste entry van deze bibliotheek wijst. Zo 
geven CONTEXT of CURRENT het adres van de laatste entry van de 
corresponderende vocabulaire. 
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Men krijgt toegang tot een vocabulaire door simpelweg zijn naam te ge¬ 
ven, waardoor de waarde van CONTEXT wordt veranderd. Er is maar éën 
vocabulaire tegelijk aanroepbaar; ondanks dat kunnen de verschillende 
vocabulaires aan elkaar "bedraad* 1 worden, waardoor wel gezocht naar 
niets veranderd kan worden in een andere vocabulaire. Het is geen pro¬ 
bleem synoniemen te definiëren in verschillende vocabulaires. 

Om aan een vocabulaire een nieuwe definitie toe te voegen moet men het 
commando: 

< naam vocabulaire > DEFINITIONS 
geven. Hiermede wordt 
CURRENT 

veranderd en kunnen definities aan de vocabulaire worden toegevoegd. 
Opmerkingen : 

- Het precedence bit van de vocabulaire is 1 en ver¬ 
andering van vocabulaire kan binnen in een procedure 
gedurende de compilatie worden veranderd. 

- Er treedt een automatische verandering van vocabulai¬ 
re op wanneer men het volgende gebruikt: 

: :ORx en die dwingen tot zoeken in de 

bibliotheek waar de nieuwe definitie geplaatst gaat 
worden. 

CODE , ,CODE en ;CODE dwingen tot zoeken in 

de vocabulaire ASSEMBLER welke aan de FORTH voca¬ 
bulaire is bedraad. 
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In onderstaande afbeelding wordt de boomstructuur wat beter uitgewerkt. 
Veronderstel dat we de volgende constructie hebben; 


1. 

FORTH DEFINITIONS 







2. 

VOCABULARY VI 

VI 

DEFINITIONS 

< 

entries 

voor 

VI > 

3. 

VOCABULARY V2 

V2 

DEFINITIONS 

< 

entries 

voor 

V2 > 

4. 


VI 

DEFINITIONS 

< 

entries 

voor 

VI'' > 

5. 


V2 

DEFINITIONS 

< 

entries 

voor 

V2' > 

6. 


FORTH 

DEFINITIONS 

< 

entries 

voor 

FORTH' 


De bibliotheek heeft de volgende logische constructie; 



Als we in het geheugen kijken, dan zien we de volgende structuur 
(in volgorde van programmering); 


FORTH 



\ -- 

FORTH’ 


De entries van FORTH’ zijn niet bereikbaar voor de andere vocabu¬ 
laires. 

De entries van VI zijn bereikbaar door VI' , V2 en V2' , maar 
niet door FORTH' . 
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FORTH 


De entries van VI' , V2 en V2' zijn niet bereikbaar voor de rest. 

Met het commando CHAIN kunnen we automatisch vocabulaires aan elkaar 
koppelen. 

Het gebruik is als volgt: 

Na de actuele vocabulaire gedefinieerd te hebben wordt gegeven 
CHAIN < naam 2de vocabulaire > 

Bij voorbeeld, als men regel 2 van het voorgaande voorbeeld verandert 
tot: 

VOCABULARY VI VI DEFINITIONS CHAIN FORTH 

< entries voor VI > 

dan zullen alle toevoegingen FORTH' een uitbreiding volgend op de 
vocabulaire FORTH toegankelijk zijn voor VI , VP , V2 en V2’ . 

Men krijgt nu de volgende logische structuur: 



O pm er king en ; 

- FORTH' , VI' en V2' zijn dialecten van FORTH , 

. VI en V2 , 

- het actuele dialect is de niet onderbroken keten 
waarin nu de nieuwe entries worden gemaakt. 

Het is duidelijk dat het commando FORGET alleen mag worden gebruikt 
om in het actuele dialect entries weg te halen. De programmeur moet 
zich hiervan verzekeren daar hij anders onherstelbare schade aanricht 
aan zijn systeem. 
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4.0 Lussen en voorwaardelijke sprongen 


FORTH kent noch LABELS , noch GOTO statements. Herhalingen en 
keuze-sprongen gebeuren met enkele eenvoudige stuuroperatoren. 
Hiermee is het mogelijk vrijwel alle voorkomende gevallen op ele¬ 
gante wijze op te lossen. 


Gekoppeld aan een hiërarchisch opgebouwde structuur van procedures 
leidt dit tot de volgende kenmerken : 

- elk blok van een organigram heeft éën in- en één uitgang, 

- uitvoering geschiedt altijd van boven naar beneden en van links 
naar rechts (per regel). 

In FORTH zijn de volgende voorwaardelijke sprong- 
operatoren gedefinieerd : 

1. Voorwaardelijke sprong met enkelvoudige keuze 

V IF P THEN 

V IF PI ELSE P2 THEN 

<AJiWU\ ÖVuofcwv- 

2. Voorwaardelijke sprong met meervoudige keuze 
N 'NI CASE PI / ELSE 7N2 CASE P27 ... 

öo/c Aru. ^yK , a e hJ. Op d ki 

3. Herhalingslus met index J 

NI N2 DO P LOOP 

NI N2 DO P M +L00P 

t f . 

4. Lus met voorwaardelijke sprong (4.5) 

BEGIN P V END 

PI V WHILE P2 REPEAT 

NI N2 ... M zijn gehele getallen 

V is een voorwaarde 

* 

P , PI en P2 zijn procedure-lichamen. 

Voor iemand die FORTRAN gewend is lijkt dit een willekeurige, 
beperkte set van operatoren. Echter, men kan aantonen dat boven¬ 
staande set van operatoren reeds meer bevat dan minimaal noodzake¬ 
lijk is voor het oplossen van alle voorkomende gevallen en over¬ 
eenkomt met die van de meest recente talen als PASCAL en ALGOL 68. 


en lus- 


(4.2) 


THf - w } m 

BSAC J ujocndU.*^ 

hiwJLt M -^fejuk 

(4.3) 

ihsiv thi-n meivJ 
ESAC 

ÜclxhxiouJ- . 

(4.4) 


Ml - )00 


cLm JUixaMk I r<j<q 
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Ter verduidelijking : 

In FORTRAN worden de verschillende programmadelen aangegeven door 
labels. Het uitvoeren vatt een ptogramma geschiedt door spïöttgropdrach- 
ten (GOTO) naar deze labels (al dan niet expliciet, zoals in §en IF 
statement). Met deze label is het mogelijk kris-kras door het program¬ 
ma te springen met alle mogelijke gevolgen van dien. 

In FORTH (en in ALGOL 68 en in PASCAL bijv.) bakenen de operatoren 
BEGIN ... END , DO ... LOOP , IF ... ELSE ... THEN duidelijk een 
programmagebied af. Het is niet mogelijk dit gebied op een andere 
manier binnen te komen. Op dezelfde éénduidige wijze is gedefinieerd 
waar het gebied wordt verlaten. Er zijn twee uitzonderingen op deze 
regel: de procedure EXITLOOP naakt het mogelijk uit een DO ... LOOP 
te komen, de procedure ABORT stopt het lopende programma en geeft 
controle terug aan de operator (fout situatie). 
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4.1 De vergelijkingsoperatoren 

De vergelijkingsoperatoren vervangen de operand(en) op de stack door 
het resultaat van de vergelijking (=^0 is TRUE of =0 is FALSE). Deze 
operatoren nemen dezelfde prefix (D, F) als de rekenkundige operato¬ 
ren. Het resultaat is altijd een enkelvoudig geheel getal (0 of ^0) . 

Bij operatoren met twee operanden wordt de relatie van links naar 
rechts gelezen, evenals dit het geval is bij de rekenkundige bewer¬ 
kingen. 

vb. 4 3 < geeft 0 (4 < 3 is FALSE) . 

Beschikbaar zijn de operatoren: 



n 0= 

test 

of het getal op de stack nul is. 

— 

n 0< 

test 

of het getal op de stack negatief is. 


n 0^ 

test 

of het getal op de stack niet nul is. 


n m = 

> 

test 

de gelijkheid (n = m) , 


n m < 


(n < m) , 



• test 

de ongelijkheid 


n m > 

4 


(n > m) . 


Zie ook in 2.3 



4.2 Enkelvoudige voorwaardelijke sprong 


De operatoren IF en WHILE testen de top van de stack (en vernieti¬ 
gen deze waarden, evenals alle operatoren doen) en 

- gaan door met de daaropvolgende procedure als de top ongelijk nul 
is , 

- springt indien hij nul is naar de procedure volgend op ELSE , 
of volgend op THEN (als ELSE afwezig is) , 

of volgend op REPEAT bij een zg. voorwaardelijke lus. 

\r 0 p era tor ELSE veroorzaakt een onvoorwaardelijke sprong naar de 
procedure volgend op TEEN (slaat alles tussen ELSE ... THEN over). 
Hij is niet in alle gevallen noodzakelijk en mag niet worden gebruikt 
in een voorwaardelijke lus. 

De operator THEN geeft het einde van een voorwaardelijk blok aan en 
is dus absoluut noodzakelijk. 

IF en THEN kunnen worden beschouwd als twee sluithaakjes om eep 
zin. 

Noot 


Voorbeelden; 


: C2C3 DUP 2 MOD IF DUP DUP * * ELSE DUP * THEN . ; 


- Het is niet nodig dat de voorwaarde net voor de IF 
wordt berekend. Hij kan op de stack achtergelaten zijn 
door elke willekeurige andere procedure. 

- Men wil een regel { s P at i® ren (line feed) als 

opvoeren 

CONTROL = 10 

CONTROL 10 = IF CR THEN 

- Men wil van een even getal zijn Kwadraat en de derde 
macht van een oneven getal afdrukken. 
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4.3 Voorwaardelijke sprong met meervoudige keuze 


Voor deze constructie is vooralsnog geen eenduidige afspraak gemaakt • 
bij de theoretici, noch bij de gebruikers. Hij is bekend onder de ra¬ 
men computed GOTO , CASEOF , CASE , SELECT etc. met evenveel varian¬ 
ten als namen. 

De hier gebruikte variant komt overeen met CASE van PASCAL ; 
de waarde op de stack wordt vergeleken met een lijst van vooraf vast¬ 
gestelde waarden. Zodra een overeenstemming is bereikt, wordt het 
daarbij behorende procedurelichaam uitgevoerd. 

In FORTH vergelijkt CASE de twee waarden op de top van de stack. 

- Als zij aan elkaar gelijk zijn, dan worden de beide waarden vernie¬ 
tigd en dan wordt de uitdrukking uitgevoerd tot aan de eerste ELSE . 
Hierna wordt uit de constructie gesprongen. 

- Als zij verschillend zijn, wordt enkel de top van de stack vemie- 

) 

tigd en dan gaat de uitvoering over naar de uitdrukking volgend op 
de eerstvolgende ELSE . 

- CASE kan worden gebruikt voor het vervangen zowel van een IF met 
tweevoudige vertakking als van een : 'IF met meervoudige vertakkin¬ 
gen' f . 

Het volgende voorbeeld licht dit toe : 

Als BASE het getal 8 1Q bevat, druk dan OCTAL af 

\ Zo niet , druk dan OTHER af . 


; BASE? o) 8 CASE 

."OCTAL" 

A 

ELSE 

. "OTHER" DROP 

A 

THEN 

• 

9 


Voeg hierbij de gevallen van 10-tallige (decimale) en 16-tallige 
(hexadecimale) stelsels : 


i BASE? BASE o) 

8 

CASE 

."OCTAL" 

A 

ELSE 

10 

CASE 

."DECIMAL" 

A 

ELSE 

16 

CASE 

."HEXADECIMAL" 

A 

ELSE 

DECIMAL 

DUP . . ’^BASE 10" BASE 



THEN 

THEN THEN ; 
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O pn erkingen : 

- Tenminste een ELSE moet worden gebruikt 
geval dat de gelijkheid niet optreedt. 

- De constructie moet eindigen met evenveel 
als er ELSE's waren. 


voor het 

THEN's 


Op enkele installaties vervangt ESAG alle THEN’s 
hoeveel er ook maar mogen zijn (ESAC is de omkering 
van CASE). . 
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A- 


4.4 Lussen (DO-LOOP's) met index 


De DO operator in FORTH is vrijwel gelijk aan de DO in FORTRAN, echter 
met enkele kleine verschillen. 

De DO operator moet altijd op de stack vinden; 
de beginwaarde van de index op de top 
de eindwaarde daar net onder. 

Beide getallen moeten heel zijn, maar kunnen verder positief, negatief 
of nul zijn. 




De operator LOOP hoogt de index met 1 op, vergelijkt het resultaat 
met de eindwaarde en herhaalt zonodig de procedure volgend op DO . 

De operator +LOOP als LOOP , maar hoogt de index op met de waarde op 
de stack (positief, negatief of nul). 

De operator BACKLOOP verlaagt de index met 1 . 

De operator -LOOP verlaagt de index met de waarde op de stack. 

De operator EXITLOOP maakt het mogelijk om uit de lus te springen, 
onafhankelijk van ^e waarde van dg index. 

LE AV P 

Wat betreft het bereiken van de eindwaarde: 

De lus wordt verlaten nadat de index is geïncrementeerd als 

- de eindwaarde bereikt is èn het increment positief is; 

- de eindwaarde overschreden is èn het increment negatief is. 


Opmerkingen s 

- De operatoren DO en LOOP (of +LOOP etc.) vormen de 
twee haakjes om een herhalingsblok en dienen in ëên en 
dezelfde procedure te worden gebruikt. De lus-index 
zelf is alleen toegankelijk binnen in de procedure die 
door DO en LOOP wordt omsloten. 


- Verscheidene DO ... LOOP lussen mogen gerust dak¬ 
pansgewijs over elkaar worden gelegd (binnen in ëên en 
dezelfde procedure). 

« 

- De operator I zet de index op de stack van de - op het 
tijdstip van aanroep - meest naar binnen gelegen lus. 

- De operator J zet in de net hierboven genoemde lus de 
index op de stack van de lus die ëên niveau meer naar 
buiten ligt. 


# 
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Voorbeeld - 


- De operator K evenzo voor de lus die twee niveaux neer 
naar buiten ligt. 

- Er is in het algemeen geen operator gedefinieerd'voor 
indices van nog verder naar buiten liggende lussen. 

- Een DO lus wordt altijd tenminste één keer uitgevoerd. 

-Het increment van de +LOOP operator kan tussen lus- 
uitvoeringen worden gewijzigd. Evenals alle FORTH ope¬ 
ratoren vernietigt +LOOP zijn operand. 


- Druk de getallen van 0 tot en met 10 af 
... 11 0 DO I . LOOP ... 

- In afnemende volgorde 
0 10 DO I . -1 +LOOP 

- Berekening van Ni : 

(N) : NI 1 SWAP 1+ 1 DO I * LOOP ; 

- Het afdrukken van een vermenigvuldigingstabel in de 
actuele getallenbasis (BASE) : 

BASE (q OCTAL , 

;"#TITLE MULTIPLICATION TABLE IN BASE " BASE 0 
10 CASE ."OCTAL" 

ELSE 12 CASE ."DECIMAL" 

ELSE 20 CASE ."HEXADECIMAL" 


ELSE 




0. ." (BASE 8) " THEN THEN THEN ; 


: #TABLE 3 FLD I CR CR dRj.»tITLE CR CR 
BASE oDdüP 1 DO CR '^Z~ v ~ éri 'N 


DUP 1 DO 

I J * S. 

LOOP 

LOOP , ^ 

DROP CR CR ; BASE I ';£f) ^ 

- Het afdrukken van de inhoud van de operationele stack 

(de top van de stack bevindt zich rechts) 
tvk IS 01 

10 CYCLE ICR ^ 

: SDUMP 1 1 ICR I 7 FLD I CR 1 


SP cD 1+ SP0 < 0 . 1 — DO 


I <0s. 

ICR 0* IF CR THEN 


-1 +LOOP CR ; 
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Opmer king : 

- In dit voorbeeld wordt een variabele van het type CYCLE 
gebruikt voor het regelen van de afdruk. 

Merk op dat SDUMP tenminste één waarde zal afdrukken ~ 
ook al zou de stack leeg zijn, op het moment van aanroep 
van de procedure SDUMP. 


Oefening : 

- Maak zelf een nieuwe definitie voor SDUMP zodat er geen 
waarde wordt afgedrukt als de stack inderdaad leeg zou 
zijn. 

OCTAL *TABLE HEX *TABLE 5 BASE [ # TABLE 


MULTIPLICATION TABLE in BASE OCTAL 

1 2 3 4 5 6 7 

2 4 6 10 12 14 16 

3 6 11 14 17 22 25 

4 10 14 20 24, 30 34 

5 12 17 24 31 36 43 

6 14 22 30 36 44 52 

7 16 25 34 43 52 61 


MULTIPLICATION TABLE in BASE HEXADECIMAL 

1 23456 7 89ABCDEF 

2 4 6 8 A C E 10 12 14 16 18 IA IC IE 

3 6 9 C F 12 15 18 1B IE 21 24 27 2A 2D 

4 8 C 10 14 13 IC 20 24 28 2C 30 34 38 3C 

5 A F 14 19 IE 23 28 2D 32 37 3C 41 46 4B 

6 C 12 18 IE 24 2A 30 36 3C 42 48 4E 54 5A 

7 E 15 IC 23 2A 31 38 3F 46 4D 54 5B 62 69 

8 10 18 20 28 30 38 40 48 50 58 60 68 1$ 78 

9 12 1B 24 2D 36 3F 48 51 5A 63 6C 75 7E 87 

A 14 IE 28 32 3C 46 50 5A 64 6E 78 82 8C 96 

B 1621 2C 37 42 4D 58 63 6E 79 84 8F 9A A5 
C 18 24 30 3C 48 54 60 6C 78 84 90 9C A8 B4 

D IA 27 34 41 4E 5B 68 75 82 8F 9C A9 B6 C3 

E IC 2A 38 46 54 62 70 7E 8C 9A A8 B6 C4 D2 

F IE 2D 3C 4B 5A 69 78 87 96 A5 B4 C3 D2 El 


MULTIPLICATION TABLE in BASE 5 ( BASE 8 ) 

12 3 4 

2 4 11 13 

3 11 14 22 

4 13 22 31 
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4.5 Voorwaardelijke (BEGIN, END, WHILE) lussen . 


Bekijk het volgende organigram; 



Na binnenkomen in hst blok voeren we eerst PI uit en dan - afhanke¬ 
lijk van de waarde op de stack - voeren we P2 uit. 

Het is opmerkelijk dat talen gegroeid uit ALGOL 60 , zoals PASCAL » 
- hoewel zij goed voorzien zijn voor wat betreft voorwaardelijke lus¬ 
sen - het bovenstaande toch niet op eenvoudige wijze kunnen oplossen. 
Deze talen onderscheiden; 

1. het geval waarin P2 niet bestaat, 

2, het geval waarin PI niet bestaat. 

Oorspronkelijk kent FORTH slechts het geval 1 » met omkering van de 
zin van de voorwaarde. 

Dit is de constructie: 

BEGIN PI V END 

hetgeen als volgt moet worden gelezen: • 

Herhaal het geheel van procedures, symbolisch PI genoemd , totdat 
de (voor)waarde op de stack achtergelaten TRUE (ongelijk aan nul) 
is en ga vervolgens na END verder. In PASCAL notatie 
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BEPEAT PI UNTIL V 

Merk op dat PI tenminste één keer wordt uitgevoerd. 

Wil men echter de test uitvoeren voordat er iets wordt uitgevoerd, dan 
is er de volgende mogelijkheid 

LOOP; (PI) V WHILE P2 REPEAT 

hetgeen wordt gelezen als: 

Zolang V waar is, herhaal het geheel van procedures, gesymboliseerd 
door P2 . 

In PASCAL notatie: 

WHILE V DO P2 

In FORTH wijzigt de aanwezigheid van PI vóór WHILE niets aan de 
lusopbouw. In andere talen, zoals ALGOL en PASCAL, is dit echter niet 
mogelijk. 

Knuth stelt wel een dergelijke constructie als die in FORTH voor in 
deel 3 van zijn handboek "The Art of Computer Programming" : 

LOOP; PI WHILE V P2 REPEAT 

Evenals in FORTH kunnen PI en P2 leeg zijn. 

Let op het scheidingsteken : dat hier nodig is tussen V en P2 , 
terwijl door het gebruik van de Reverse Polish Notatie in FORTH er 
geen dubbelzinnigheid in de betreffende uitdrukking kan optreden. 

Voorbeelden : 

- (wacht lus) de procedure READY geeft FALSE (0) 
zolang een instrument nog niet klaar is, vervolgens 
TRUE (1) als het dat wél is. Stel dat je wilt wach¬ 
ten tot het instrument klaar staat. 

: WAIT BEGIN READY END ; 

- een instrument telt events. Stel dat je de meting 
wilt beëindigen als er tenminste 1000 events zijn ge¬ 
weest. 

: EXPERIMENT 0 BEGIN ADDITION + 

DUP 
999' > 


END ; 
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De grootste gemene deler (greatest coramon divisor GCD) 
van twee getallen wordt verkregen door 

- permutatie van de twee getallen (indien nodig)> zo¬ 
dat het eerste het grootste is. 

- toepassing van de relatie 

GCD (a,b) = GCD (b,a-b) 
totdat a-b nul wordt. 


De twee getallen worden op de stack verondersteld 


: GCD BEGIN 2DUP > IF SWAP THEN 
OVER - 
DUP 0= 

END DROP ; 


Stel we willen een geheel getal 


omzetten in Romeinse 


cijfers: 

BASE a)DECIMAL 

: ROMAN BEGIN DUP 
DUP 

BEGIN DUP 
DUP 

BEGIN DUP 
DUP 

BEGIN DUP 
DROP ; 


II 

0 A 


wi-tlLë 


999 

> 


499 

> 

ik IF. *'D ,: 

99 

> 

ik ."c" 

49 

> l 

feF IF. "L u 

9 

> J 

h ."x i: 

4 

> 

éjif.'Y' 

0 

>\ 

ff ."l" 


i{E C£A 7 



BASE ! 


Voorbeeld van gebruik van ROMAN : 

: TABLE BASE a>DECIMAL CR CR ."TABLE OF POWERS OF 2 " 

CR CR 10 FLD .’ 1 BEGIN DUP DUP S. 2 BLANKS ROMAN CR 

2 * DUP 40001 > END CR CR DROP BASE .' • 


OK 


TABLE 

TABLE OF POWERS OF 2 

1 I 

2 II 

4 IIII 
8 VIII 
16 XVI 
32 XXXII 
64 LXIIII 
128 CXXVIII 
256 CCLVI 
512 DXII 
1024 MXXIIII 
2048 MMXXXXVIII 
4096 MMMMLXXXXVI 
8192 MMMMMMMMCLXXXXII 
16384 MMM11MMMMMMMMMMMMCCCLXXXIIII 


OK 
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Reeks van Ulam 


Zij een reeks getallen gegeven door de relatie 
_ Ni/2 indien Ni is even 
* 3Ni+l indien Ni is oneven 


De veronderstelling is: de reeks Ni convergeert al¬ 
tijd naar 1 na zekere tijd. 
Stel dat we de reeks Ni willen afdrukken tot Ni = 1 

10 CYCLE ICR 6 FLD l 

: ULAM 1 * ICR ! 

BEGIN 

DUP 1 DUP 

2 MOD IF 3 m 1 + 

ELSE 2 / 

THEN 

DUP S- 

ICR 0= IF CR THEN 

jt®iCE RePèaI 

CR CR DROP ; 

: RULAM 0 DO CR CR .‘'REEKS VAN ULAM VANAF "IS* CR 
I ULAM 



LOOP 

CR 

CR CR ; 

ULAM 

20 

10 

4 

2 1 


ULAM 

122 

51 

174 

76 

37 

136 

57 

216 

107 

326 

153 

502 

241 

744 

362 

171 

554 

266 

133 

422 

211 

634 

316 

147 

466 

233 

722 

351 

1274 

536 

257 

1016 

407 

1426 

613 

2242 

1121 

3364 

1572 

675 

2470 

1234 

516 

247 

766 

373 

1362 

571 

2154 

1066 

433 

1522 

651 

2374 

1176 

477 

1676 

737 

2636 

1317 

4156 

2067 

6246 

3123 

11372 

4575 

16170 

7074 

3436 

1617 

5256 

2527 

10006 4003 

14012 

6005 

22020 

11010 

4404 2202 

1101 

3304 

1542 

661 

2424 

1212 

505 

1720 

750 

364 

172 

75 

270 

134 

56 

27 

106 

43 

152 

65 

240 

120 

50 

24 

12 

5 

20 

10 

4 

2 

1 



OK 
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12 RULAM 

REEKS VAN ULAM VANAF 0 

REEKS VAN ULAM VANAF 1 

REEKS VAN ULAM VANAF 2 

1 


REEKS VAN ULAM VANAF 

12 5 20 10 


REEKS VAN ULAM VANAF 

2 1 


REEKS VAN ULAM VANAF 
20 10 4 2 


REEKS VAN ULAM VANAF 
3 12 5 20 


REEKS VAN ULAM VANAF 
26 13 42 21 

24 12 5 20 


REEKS VAN ULAM VANAF 
4 2 1 


REEKS VAN ULAM VANAF 
34 16 7 26 

32 15 50 24 

4 2 1 


3 

4 2 1 


4 


5 

1 


6 

10 4 2 1 


7 

64 32 15 50 
10 4 2 1 


10 


11 

13 42 21 64 
12 5 20 10 


OK 
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6 Opmerkingen over het gebruik van herhalings- en vergelijkingsoperatoren 


Deze operatoren maken deel uit van een klasse van operatoren die zich 
onderscheidt doordat deze operatoren moeten worden uitgevoerd bij de 
compilatie èn uitvoering van de procedure die hen bevat. (Het gaat dus 
duidelijk om twee verschillende aspecten van de operator). 

Laten wij eerst kijken wat er tijdens uitvoering gebeurt. De variabele 
(of het register IC) bevat het adres van de volgende uit-te-voeren 
procedure (net zoals het P register van een computer het adres van de 
volgende instructie bevat). 

De operatoren zoals DO , BEGIN en THEN veranderen niets aan IC 
en hebben bij de uitvoering geen equivalent. Zij dienen slechts voor de 
compilatie. 

De andere (IF, END etc.) bevatten een sprong, al dan niet voorwaar¬ 
delijk, naar voren, of naar achteren. Zij zijn op de volgende wijze 
geprogrammeerd: 

Het woord volgend op de operator (IF etc.) wordt aan IC toegevoegd 
of vervangt soms de inhoud van IC als de sprong plaats moet hebben. 

Zo niet, dan wordt eenvoudigweg steeds 1 bij IC opgeteld. 

Bij de compilatie laat de eerste operator op de stack het adres achter 
van het volgende woord in het woordenboek. De tweede operator rekent 
de sprong uit en plaatst de verkregen waarde op de geschikte plek om 
bij de uitvoering te worden gebruikt. 

Enkele versies van FORTH voeren tijdens de compilatie een eenvoudige 
test uit op deze operatoren: \0 0 2. 

Aan iedere tweelingsoperator (of bij iedere drielingsoperator) wordt 
een willekeurig doch verschillend getal toegevoegd. 

Zodra een linker operator (DO , BEGIN , etc.) wordt ontmoet, wordt 
het erbij behorende getal op een extra stack geplaatst. Wanneer een 
rechter- of sluithaakje wordt ontmoet (LOOP , END , etc.) wordt het 
getal op de top van deze extra stack aangepast waarna wordt gekeken of 
deze overeenkomt met de operator. Zo niet, dan is er een kruising tus¬ 
sen paren operatoren opgetreden, of een haakjespaar is niet gesloten of 
niet begonnen, hetgeen de drie meest voorkomende fatale fouten zijn. 



Deze ,f SECURITY ,f versies van FORTH gaan ook na of genoemde operatoren 
uitsluitend binnen in een procedure worden gebruikt en niet in een 
interactieve modus. Ook wordt gecontroleerd of er niets op de stack 
wordt achtergelaten tijdens de compilatie. 

Een voorbeeld van deze SECURITY zoals hij is gerealiseerd voor de 
HP 21MX wordt in appendix G behandeld. Met uitzondering van assembler 
routines en adres behandeling is deze beveiliging ook op identieke 
wijze geprogrammeerd voor een UNIVAC 1108 en enkele andere machines. 
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4.7 Voorwaardelijke compilatie 


No ot : 

- Deze paragraaf behoort enerzijds thuis bij de voorwaardelijke 
sprongen en anderzijds bij hoofdstuk 5 als mogelijkheid in de 
meta-assembler, aangezien deze constructie toepasbaar is zo¬ 
wel op hoog niveau als op assembler niveau. Dit is eén van de 
redenen waarom het moeilijk is om FORTH met klassieke sys¬ 
temen te vergelijken. 

Tot nu toe hebben wij enkel kennis gemaakt met voorwaardelijke sprongen 
die binnen in een procedure—lichaam toepasbaar zijn. 

Soms kan zich echter het geval voordoen dat er meerdere versies bestaan 
van een programma en dat je nu eens de ene en dan weer de andere versie 
wilt compileren. De reden hiervan is dat je om veiligheidsredenen in 
geval van veranderingen slechts één versie wilt bewaren, behalve in en¬ 
kele gedeeltes, die best afwijkend kunnen zijn. Zoiets kan in het bij¬ 
zonder optreden bij programma's die op twee - enigszins verschillende - 
installaties moeten merken (bijv. andere configuratie). 

Hiervoor staan enkele voorwaardelijke compilatie-operatoren ter be¬ 
schikking die de top van de stack testen op het moment dat de compila¬ 
tie plaats vindt. Deze zijn: 

IFTRUE 

OTHERWISE 

IFEND 

Zij worden gebruikt op dezelfde wijze als IF ELSE THEN binnen in een 
procedure. 

Het volgende voorbeeld illustreert dit. We schrijven een programmaatje 
om een paper tape te ponsen op een snelle ponser (PUNCH) of, indien 
er geen snell ponser is, op een teletype (TTY) . We gaan na of een 
snelle pons aanwezig is door op te vragen of er een entry PUNCH is 

?DEF PUNCH IFTRUE 

PUNCH OTHERWISE TTY 
IFEND OTAj 
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?DEF laat het adres van PUNCH achter als PUNCH reeds gedefinieerd 
was 

anders 0 

Geassembleerd wordt tenslotte of PUNCH OTA, 

of TTY OTA, . 

Een ander voorbeeld is het volgende. Het massageheugen (mass-storage) 
kan zich bevinden op een schijf (disc) of op magnetische band. Stel 
eens dat de blokken voor schijfgebruik vanaf blok 400 staan en voor 
bandgebruik vanaf blok 405. Nu zou je kunnen schrijven; 

?DEF MAG-TAPE IFTRUE 405 LOAD 
OTHERWISE ?DEF DISC 

IFTRUE 400 LOAD 

OTHERWISE ." NO MASS STORAGE 

IFEND 


IFEND 
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5.1 De assembler 


De FORTH assembler biedt behalve alle klassieke mogelijkheden zoals 
die door de fabrikant worden geleverd ook de mogelijkheden van een 
krachtige macro-aszembler. De notatie is echter weinig gebruike¬ 
lijk. 

Evenals alles in FORTH werkt ook de assembler in Reverse Polish 
Notation, waarbij het adres, de index, indirect bit etc. aan de in- 
structiecode voorafgaan. 

De algemene werkwijze is als volgt: 

- construeer eerst het volledige adres, met index, indirect bit etc. 
indien nodig, op de stack; 

- de instructie gaat na of het adres in een geschikt gebied ligt, 
voegt de instructie-code aan het adres toe en plaatst het geheel in 
de eerstvolgende vrije locatie in het woordenboek. 

(In sommige gevallen treden page jumps op bij het bespelen van het 
geheugen; de assembler dient dan een link te leggen om van de ene 
"pagina" naar de andere te kunnen komen via base-page of via een 
speciale LINK table.) 

Daar de hier geschetste werkwijze verschilt van die van de hogere taal, 
in FORTH, wordt de instructie van de assembler gevolgd door een komma 
(plaatsing van een woord in het woordenboek). 


Het volgende, zeer eenvoudige, voorbeeld illustreert dit: 

Stel dat je de inhouden van de variabelen VI en V2 wilt optellen 
en het resultaat wilt plaatsen in V3 . In code geschreven ziet dat 
er zo uit: 


VI 

V2 

V3 

zet het /adres/ van de 
variabele op de stack 



LDA, 

ADA, 

STA, 



stelt de instructiecode samen 


en zet hem in het woordenboek 


Merk nu op dat: 

- alle mogelijkheden van FORTH ter beschikking staan voor de adres¬ 
berekening, 

- er geen labels zijn (evenmin als in FORTH trouwens), 

- de instructiecode niet beperkt is tot het plaatsen van éên code- 
opdracht in het woordenboek. Men spreekt hier van een macro- 
assembler, die het mogelijk maakt om steeds herhaalde reeksen van 
instructiecode of speciale voorwaardelijke sprongen te laten gene¬ 
reren door de aanroep van een normale FORTH instructie. 

Aangezien dergelijke procedures weer kunnen worden opgenomen in 
andere procedures, is het duidelijk dat de mogelijkheden vrijwel 
onbeperkt zijn. 


Vergelijk bv. de volgende code-opbouw in normale assembler en in 
FORTH : 


LDA *-4 
LDA 4+V 


wordt 


HERE 4 
V 4 + 


LDA, 

LDA, 


De kop van een assembler procedure wordt in de bibliotheek gemaakt 
door 

CODE gevolgd door de naam van de procedure. 


Merk hierbij op dat CODE nu STATE op 0 laat staan (EXECUTION) 
De pointer van de geassocieerde code wijst onmiddellijk naar de eerste 
instructie die op de kop volgt. De pointer kan worden gewijzigd, bv. 
om te wijzen naar het inwendige van een andere assembler procedure. 


Als een assembler procedure locale parameters nodig heeft, dan kunnen 
deze vóór de kop worden geplaatst, of tussen de kop en de code, met 
de speciale constructie ,CODE . 


Voo rbeel d : 

- Stel men wil de top van de stack steeds met 40 ver¬ 
menigvuldigen. Dit kan op de volgende wijze gebeuren: 


HERE 40 , 



CODE 40* S) LDA, 
4e*fh®¥) 


zet 40 in het woordenboek en laat 
zijn adres op de stack achter 

vermenigvuldigt met het woord waar¬ 
van het adres tijdens deze assem¬ 
blage op de top van de stack staat. 
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Op analoge wijze wordt ,CODE gebruikt: 

n ,CODE < naam > VI , .... Vn , < instructies > 

n ,CODE genereert een zodanige entry dat de pointer 
naar de geassocieerde code n plaatsen verder wijst dan 
bij CODE , om zodoende plaats te maken voor de n pa¬ 
rameters VI ... Vn . De operator < , > zorgt ervoor 
dat deze in het woordenboek worden opgenomen. De 
adressen van de parameters zijn dan bekend zodra het 
adres van bv. de eerste bekend is. Hiervoor gebruikt 
men de operator < * > < naam > . Dit kan trouwens bij 
elke type entry. U? 0 y J-fc&lc . 

hc VtlL ■<?K . 

Het vorige voorbeeld kan nu ook zo worden geschreven: 


,CODE ¥40 40 , 

S) LDA, ’ ¥40 MPY, ... 


lit cfc 'tkü t&<£e ? 


1 
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5.2 Gebruik van de stack in assembler 


Daar de meeste FORTH operaties plaats hebben via de stack moet men 
over middelen beschikken om in assembler code definities te maken die 
de stack snel toegankelijk maken. 

Dit gebeurt met de volgende operatoren: 

SP variabele bevat een pointer naar de top van de stack 
SPI idem voor het woord onder de top. 

Hiermee zijn opgebouwd: 

S) indirect naar de top van de stack 
SI) idem naar het woord onder de top. 

Voorbee ld : 

~ Stel dat we de twee woorden op de vtop van de stack wil¬ 
len optellen: 

S) LDA, SI) ADA, 

- Stel dat we n woorden uit de stack willen weghalen, 
met n op de top 

S) LDA, INA, SP ADA, SP STA, 

[6n n Zelj- ook e.xb.a. ujeak] 

Let_og ; '-J u 

- Als SP niet in een geheugenplaats maar in een index- 
register is geplaatst, kan het gebruik iets veranderen, 
maar S) zowel als SI) zullen in het algemeen toch 
op de hier geschetste wijze worden gebruikt. 


« 
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5.3 Hoe een assemblerprocedure te beëindigen 


Aan het eind van een assemblerprocedure moet men: 

- de stack netjes achterlaten 

- zo snel mogelijk terugkeren naar de aanroepende procedure. 


De meeste "gewone* 1 manieren van terugkeren zijn hieronder vermeld. 
Elke assemblerprocedure moet met één uit deze lijst eindigen. (Een 
< > voor de naam geeft aan dat deze niet op elke installatie aan- 

V 

wezig is). 


NEXT, 

PUT, 

* PUT, * 

* BPUT, 

PUSH, 

* } 
APUSH, 

* BPUSK, 

POP, 

POP., 

BINARY, 

$ } 

ABINARY, 

* BBINARY 

* BINARY., y 

* ABINARY., 

* BBINARY., 
.NEXT, 


terugkeer zonder de stack te veranderen 
vervangt de top van de stack door de inhoud van regis 
ter A 

idem register B 

plaatst de inhoud van A op de top van de stack 
idem voor register B 

verwijdert één woord van de top van de stack 
verwijdert twee woorden van de top van de stack 

POP, gevolgd door PUT, (APUT,) 
idem met BPUT, 

POP., gevolgd door PUT, (APUT,) 
idem met BPUT, 

voert onmiddellijk de procedure uit waarvan het adres in 
het B register is. 



AM7, 

( ERRöR,') 

v v 


« 
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5.4 Lussen en voorwaardelijke sprongen in asseiribler 



FORTH assembler beschikt over dezelfde lus- en voorwaardelijke opera¬ 
toren als op het hogere niveau, qua notatie verschillend door de toe¬ 
gevoegde komma, qua implementatie gebruik makend van expliciete al dan 
niet voorwaardelijke sprong opdrachten.(Op sommige installaties kan de 
toegevoegde komma ontbreken. In die gevallen moet uit de context wor¬ 
den opgemaakt of men met FORTH dan wel FORTH assembler te maken 
heeft.) 

Twee- of drievoudige constructies: 

BEGIN, ... END, 

... IF, ... ELSE, ... THEN, 

M$9yy, ... WHILE, ... REPEAT, 

%h (fl 

END, IF, en WHILE, moeten worden voorafgegaan door een voorwaardelijke 
sprong-instructie. 

Voorbeeld : 

- Stel dat men bij een variabele Q steeds 5 wil optellen 
(waarbij het getal 5 in de variabele FIVE wordt be¬ 
waard) totdat Q 3* 0 is geworden. 

Q LDA, 

BEGIN, FIVE ADA, A+, END, ... 

Het gebruik van BEGIN, ... END, is gemakkelijk in te zien. 

Hun definities zijn: 

s BEGIN, HERE ; zet op de stack het adres van de 

eerstvolgende vrije plaats in het 
woordenboek, 

: END, JMP, ; compileer een sprong-opdracht naar 

dat adres. 

Doordat het (sprong-)adres op de stack wordt geplaatst, kan men een 
willekeurig aantal BEGIN, ... END, paren in elkaar definiëren (tot¬ 
dat de operationele stack het opgeeft!). 

De operatoren IF, THEN, ELSE, LOOP:, WHILE, REPEAT, werken op 
analoge wijze. 

In enkele gevallen hoeven de paren niet volledig te worden ingesloten, 
hetgeen een kruising van return adressen oplevert. Rectificatie ge¬ 
schiedt dan met SWAP . 
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5.5 De macro-assembler 


Een macro-assemhIer vereenvoudigt de taak van de programmeur door het 
mogelijk te maken dat éën symbool een hele reeks van instructies aan- 
roept en de daarbij behorende instructiecodes genereert. 

De twee volgende eenvoudige voorbeelden illustreren dit. Daar het 
merendeel van de minicomputers geen instructie heeft om rechtstreeks 
een waarde bij een geheugenlocatie op te tellen, maakt men gebruik van 
een register. (Stel dat A de waarde bevat) 

ADA MEM 
STA MEM 

Wij gaan nu een procedure ADM, construeren die automatisch deze twee 
instructies genereert, terwijl de programmeur slechts een ‘®gewone H 
instructie-opdracht gebruikt: 

: ADM, DUF ADA, STA, ; 

hetgeen wordt gebruikt als MEM ADM, . iY) ountü&lë 

Nu een tweede voorbeeld: Vaak moet men de pointefs SP en SPI 
tegelijk incrementeren. Hiervoor bestaat een macro-instructie ISP, : 

2 ISP, SPI LDR, SP STB, INB, SPI STB, ; 

Midden in een assembler procedure genereert ISP, de drie machinecode 
instructies die SP en SPI beide met 1 ophogen. 

2EE?Ë£kingen : 

- De macro-instructies zullen worden gebruikt in de 
procedures van het type CODE . Zij dienen bij voor¬ 
keur te worden geplaatst in de ASSEMBLER vocabulai¬ 
re met de opdracht 

ASSEMBLER DEFINITIONS 

voorafgaand aan de definitie van de macro-instructie. 

f 

- Het aanroepen van een macro-instructie leidt tot de 
generatie van machinecode in het woordenboek. De code 
zelf wordt niet op dit moment uitgevoerd. 
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Het volgende voorbeeld licht dit toe: 

Stel dat we aan IC het getal 1 willen toevoegen om bv. over één 
FORTH instructie heen te springen 

CODE SKIP ONE LDA, 

IC ADM, 

NEXT, 

De code in het woordenboek zal nu zijn: 

ONE LDA, 

IC ADA, 

IS STA, 

NEXT, 

Het gebruik van SKIP in een procedure van het type : 

leidt tot een sprong over de volgende procedure. Het zou natuurlijk 

ook mogelijk zijn geweest SKIP direct helemaal in machinecode te 

schrijven. 

De voordelen van het toepassen van macro-instructies zijn: 

- compacte en duidelijke programmacode zonder wijziging 
van de echt uitgevoerde code. 

- de overdraagbaarheid naar andere machines is groter. 

Vaak is de macro-instructie eenvoudig om te zetten van 
de ene machine op de andere. 

Het voorgaande voorbeeld is op zichzelf te eenvoudig om het gebruik van 
van macro-instructies te rechtvaardigen. 

Laten we een tweede voorbeeld geven: 

De code voor */ is : 

CODE */ SI) DLD, 

B MPY, 

• S) DIV, 

ISP, 

BINARY, 

In de gegenereerde code wordt ISP, vervangen door 


f LÏM, 


SPI LDB, SP STB, INB, SPI STB, . 


Stel eens dat het FORTH pakket enigszins wordt veranderd en dat SP 
in een indexregister zou worden bevat. De programmacode voor #/ hoeft 
nu niet te worden veranderd. De macro-instructie ISP, moet wel worden 
veranderd en de uiteindelijke machinecode zal dan ook anders zijn. 

Bekijk tenslotte de volgende procedure: 

CODE ISP SPI LDB, SP STB, INB, SPI STB, NEXT, 
of nog eenvoudiger geschreven (de gegenereerde codes zijn identiek) 

CODE ISP ISP, NEXT , 

Nu is ISP geen macroconstructie, maar een operator die bij aanroep 
SP en SPI met 1 ophoogt, dus direct wordt uitgevoerd. ISP is 
derhalve equivalent aan DROP . Zij kan niet worden gebruikt om in een 
CODE procedure machine-instructies te genereren. 
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6.0 De verschillende typen variabelen 


FORTH heeft een relatief grote keus in typen variabelen, Sommige 
daarvan, zoals de integers, de floating points, de vectoren en de 
matrices, zijn traditioneel. Andere zijn dat minder, zoals het type 
polynoom. Bovenal maakt FORTH het eenvoudig mogelijk om nieuwe typen 
variabelen te creëren voor bepaalde problemen, alsook de bewerkingen 
op die variabelen. 

In FORTH is de stack dë plaats waar de operatoren hun informatie ha¬ 
len of deponeren. Wij maken nu onderscheid tussen variabelen die 

- een gegeven (een constante bv.) op de stack plaatsen, waarbij de 
variabelen zelf niet veranderd moeten worden, of 

- op de stack het adres van een variabele achterlaten, waarbij de 
waarde van dc variabele wel veranderd zal worden. 

Dit onderscheid wordt in FORTRAN niet expliciet gemaakt, is echter 
van fundamentele betekenis in FORTH . 
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6.1 De standaard variabelen 


a) Eenvou di ge variabelen 

< waarde > CONSTANT < naam > 

< waarde > INTEGER ' < naam > 

vaRiaBLé 

Deze twee constructies maken een entry met de naam van de variabele 
en zetten de waarde die op de stack is op het moment van compilatie 
als parameter in de bibliotheek. 

Bij gebruik van deze variabelen plaatst de toegevoegde (of geasso¬ 
cieerde) code de waarde van de parameter op de stack van een 
CONSTANT , of het adres voor een INTEGER . 

% 

Het adres van een constante kan worden verkregen door 
? < naam van de constante’ > 

De inhoud van een INTEGER kan worden verkregen door 
< naam van de INTEGER > o) 


Voorbeeld ; 

0 INTEGER SPEED 
60 CONSTANT MAXSPEED 

: SNELHEIDSMETER MEET SPEED .' ; 

ï OVERTREDING SPEED a MAXSPEED ' > ; 

SNELHEIDSMETER meet de snelheid (resultaat op de 
stack) en zet de snelheid in SPEED , 

OVERTREDING vergelijkt SPEED met MAXSPEED . 

b) Du bbel e woo rd v ar iabelen 

< dubbele waarde > DCONSTANT < naam > 

< dubbele waarde > DOUBLÉ < naam’ > 


Deze constructies zijn analoog aan die voor CONSTANT en INTEGER 
maar met twee woorden als parameters. 

c) Vectoren 

< maximum index > ARRAY < naam > 

< maximum index, dubbele waarden' > 2ARRAY < naam > 






Deze twee constructies zijn van type "variabele". Zij reserveren 
n+1 of 2(n+l) woorden in het parameterveld in het woordenboek. 

Gebruik hiervan: 

< waarde van de index' > naam 

laat op de stack achter het adres van het i-de onderdeel, 
d) Vector constant 


VECTOR < naam' > waarde 1 , waarde 2 , etc. 

De dimensie wordt hier niet expliciet meegegeven. Men zet de 
waarden (constanten) achtereenvolgens in het woordenboek na de kop. 


Bij het gebruik ervan moet de waarde van de index aanwezig zijn in 


de variabele ( ) 
Voorbeeld: 


(van type INTEGER) . 

6 y/Hlffêit () *° 


xieJv 


VECTOR CENTRE 0 , 10 , 6 , 

VECTOR APEX 20 , 2,4, 

etc. 

0 ( ) SET X 1 ( ) SET Y 2 ( ) SET Z 

Om de afstand in X tussen APEX en CENTRE te krijgen 
X CENTRE APEX - 

Opmerking: 

- Voor het gebruik van SET zie 6.3 

- De variabele ( ) is op elk moment gemeenschappelijk aan 
alle variabelen van type VECTOR . 


e ) l’?2lZS2S®S" 


< aantal waarden > POLY < naam > < waarde 1 > , etc. 

< aantal waarden, tweevoudige bestanddelen > 2P0LY < tweevoudige 

<Iê , 

waarde > , < 2 tweevoudige waarde' >, etc. 

Toepassing: 

Elke aanroep van < naam > zet op de stack de waarde van het 
volgende bestanddeel. Nadat de laatste van de rij is bereikt, 
komt de eerste weer. 
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Voorbeeld: 

4 POLY ANGLES 0 , 30 , 60 , 90 , 

Het aanroepen van ANGLES zet achtereenvolgens op de stack 
0 30 60 90 0 30 etc. 

f) Ma tric es 

< maximale index rijen > < maximale index kolommen > 

MATRIX < naam > 
evenzo 2MATRIX < naam > 

lijken op ARRAY en 2ARRAY maar hebben twee indices nodig in¬ 
plaats van één. 
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6.2 Constructie van nieuwe types 


Bij het maken van nieuwe types moeten twee problemen worden opgelost: 

1. Het construeren van de kop en het parameterveld van de nieuwe 
variabele in het woordenboek. 

2. Het maken van de geassocieerde code. 

a) Construct i e van de kop en het p a ra meteryeld 

De kop kan worden gemaakt met behulp van één van de reeks gedefi- 

f 

nieerde variabelen. Meestal wordt hiervoor CONSTANT gebruikt, 
maar soms ook wel een ander type om bv. een groter parameterveld te 
reserveren. 

Zo is bv. DCONSTANT gedefinieerd als 

: DCONSTANT CONSTANT , ;CODE ... 

maakt de kop met het woord voegt het tweede woord 

op de top van de stack als toe als 2-de parameter 

1-ste parameter 

Gewoonlijk wordt de geassocieerde code in assembler geschreven. 

Er is ook een andere manier, nl. om de toegevoegde code in de 
hogere taal te schrijven. 

In dit geval moet de definitie eindigen met < > in plaats van 

;CODE . < > bevat al de constructie van een kop met CONSTANT . 

Als meerdere woorden moeten worden gereserveerd, dan moet dat 
gebeuren v66r de kop en niet in het parameterveld. 

Voorbe eld : 

- De definitie van MATRIX is 
: MATRIX 

OVER 1+ , zet in het woordenboek het aantal 

lijnen +1 , 

1+ SWAP 1+ * berekent het totaal aantal te 
reserveren woorden 

pakt de actuele plaats in het 
woordenboek en zet dit op de stack 


HERE 
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SWAP DP +! voegt aan DP het aantal benodig¬ 

de woorden voor de matrix toe 

eindigt de constructie van de kop. 
De geassocieerde pointer wijst 
naar de daaropvolgende hogere code. 
De eerste parameter is het adres 
van het eerste woord van de matrix. 
Zodra een matrix gebruikt gaat wor¬ 
den, wordt déze waarde op de stack 
geplaatst, net zoals bij een norma¬ 
le constante. 

CONSTANT maakt als het ware deel 
uit van de toegevoegde code. 

b) Constructie van de geassocie er de c ode 

De geassocieerde code volgt onmiddellijk op ;CODE als de program¬ 
macode in assembler of ;: als hij in hogere code wordt geschreven. 

In assembler bevat het B-register, bij overgang naar de geassocieer¬ 
de code, het adres van het woord voorafgaande aan de eerste parame¬ 
ter. 

V oo rbeeld : 

1 


Wat gebeurt er bij 4 INTEGER C ? 
In het geheugen staat dan: 


INTEGER is gedefinieerd door: 

: INTEGER CONSTANT ;CODE 

INB, adres van de eerste parameter 

B LDA, wordt verplaatst 

PUSH, naar de top van de stack. 




1 
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N.B. ;CODE wijzigt automatisch de aan C geassocieerde pointer, 
zodanig dat deze verwijst naar de code onmiddellijk volgend 
op ;CODE . 

Een ander voorbeeld: 

Stel dat we een nieuw type variabele willen creëren genaamd 
CYCLE . Dit moet zich gedragen als een constante maar wordt 
met 1 opgehoogd na iedere aanroep. Vervolgens wordt de be¬ 
reikte waarde modulo n genomen, waarbij n eigen is aan 
een bepaalde variabele. We willen een entry maken met twee 
parameters, de actuele waarde van de constante en de modulo 
waarde n , evenals de code die voor de uitvoering zorg moet 
dragen. 


HERE -1 , 

: CYCLE 0 CONSTANT 
INB, B ) LDA, 

B )*ISZ, 

INB, 

B ) CPA, RSS, 

PUSH, 


-1 wordt in het woordenboek ge¬ 
plaatst met zijn adres op de stack 

; CODE 

plaats de actuele waarde in A 

incrementeer de actuele waarde 

we willen nu n hebben. 

(het adres van n is in B) 

vergelijk met n 

de waarde n is nog niet bereikt, 
zet de actuele waarde op de stack 



<vï\n£v\ c 
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ADB, 

decrementeer B met 1 

(zie hierboven HERE -1 

CLA, B ) STA, 

zet de waarde terug op nul 

B ) ISZ, 

incrementeer deze 

PUSH, 

zet nul op de stack. 

Voorbeeld van het gebruik van 

> 

CYCLE : 


Stel dat wij binnen een LOOP: ... WHILE ... REPEAT lus 
10 waarden op een regel willen afdrukken. 

Gebruik nu: 10 CYCLE ICR 

ICR heeft gewoonlijk de beginwaarde 0 . 

We zetten deze waarde op 1 met de opdracht 

1 * ICR l vervolgens LOOP: ... WHILE ... 

S. ICR 0= IF CR THEN 

... REPEAT 


Geassoc ie erde code met behul p van de hogere taal 


Bij geassocieerde code in hogere taal wijst de waarde van de 
constante naar eventuele parameters. 

Laten wij nu het voorbeeld van MATRIX afmaken: 

;: (het begin van de toegevoegde code) 


SWAP 

OVER 1- a) 
# + + 


verwisselt de adressen van het aan¬ 
tal rijen en kolommen 

zet het aantal rijen op de stack 

berekent het adres van het element 
dat op de stack staat 

hier wordt de toegevoegde code be¬ 
ëindigd. 
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6.3 De werkwoorden 


De werkwoorden vormen een heel bijzondere klasse van procedures waar¬ 
voor geen enkel equivalent in enig andere taal te vinden is. Bij een 
type variabele horen niet alleen waarden maar ook een specifieke han¬ 
deling gepleegd op deze waarden. 

Bijvoorbeeld: wij willen bij iedere aanroep van een werkwoord van een 
bepaald type, aan een variabele een gegeven waarde toekennen, zoals 
bv.: 


OCTAL dient om 8 10 te plaatsen in BASE 
DECIMAL dient om 10 1() te plaatsen in BASE 

Wij zouden ook kunnen definiëren: 

: OCTAL 8 BASE ! ; 

Aangezien deze actie regelmatig voorkomt, heeft men deze geoptimali¬ 
seerd. Stel dat er een constructie is 

< waarde > < adres > SET < naam' > 

bijvoorbeeld : 10 BASE SET DECIMAL 

De procedure SET maakt nu een entry met DECIMAL als naam. Iedere 
aanroep van DECIMAL zet 10 lQ in BASE . De aan DECIMAL toege¬ 
voegde code moet aanwezig zijn in SET . 

SET wordt gedefinieerd als: 

: SET SWAP CONSTANT , ;CODE 

Er wordt een kop gemaakt met twee parameters; de waarde zelf en het 
adres van de variabele. „ 


INB, 


haalt de waarde op (eerste parameter) 

B ) 

LDA, 


INB, 


haal het adres (tweede parameter) 

B ) 

LDB, 

naar B , 

B ) 

STA, 

plaats de waarde op het adres van de variabele en 

NEXT, 


keer terug. 


De nieuwe definitie van OCTAL is veel sneller dan de oude. Ook 
neemt zij minder plaats in in het woordenboek. 


6.4 Reeksen van karakters (character strings) 


Reeksen van karakters zijn nog niet gestandaardiseerd in FORTH . De 
hier volgende beschrijving is voorlopig en komt overeen met de imple¬ 
mentatie op ESO en de Observatoire de Genève. Zij verschilt aan¬ 
zienlijk van de structuur zoals die wordt voorgesteld door Philip Hill 
van de Sterrewacht van St. Andrews. 

< EEN TEKST > drukt deze tekst af bij compilatie, als de 

constructie buiten een procedure lichaam is, 

° f bi ^ Executie 8 * als zi ï in een P rocedu " 
re is. 


Noot s 

- In de hier volgende constructies kan voor de hier gebruikte 
delimiter < Z > elk ander symbool worden gebruikt (behal¬ 
ve de spatie die als algemeen woordscheider wordt gebruikt). 


STRING % TEKST Z NAAM 


N STRINGARRAY % TEKST N-l % 
... % TEKST 0 % NAAM 


.ABORT- STRING % TEKST % NAAM 


N ABORT-STPING-ARRAY 
% TEKST N-l % ... 

... % TEKST 0 % NAAM 


maakt een entry NAAM wijzende 
naar TEKST . Deze kan worden afge¬ 
drukt met de opdracht NAAM TYPE 

maakt een tabel met pointers naar 
de teksten. Deze kunnen worden af¬ 
gedrukt met het commando 

I NAAM TYPE ( 0 <= I < N ) 

maakt een kop die naar de tekst 
verwijst. Bij het uitvoeren van 
NAAM wordt er een system-abort 
gegeven en deze TEKST afgedrykt. 
De system-abort stopt de in uit¬ 
voering zijnde procedure. 

maakt een entry van pointers naar 
de teksten. Het uitvoeren van 
I NAAM drukt de TEKST I af en 
stopt de executie. 
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7.0 De normale communicatie met FORTH (Input-Output) 


De communicatiemogelijkheden van een systeem zijn vaak moeizaam te 
definiëren. Er is in feite een voortdurend conflict tussen 

- gebruiksgemak - eenvoud van bediening; 

- algemeenheid, overdraagbaarheid; 

- uitvoeringssnelheid. 

FORTH ontsnapt niet aan deze regel. 

Het basis FORTH definieert slechts twee typen van input-output (I/O) s 

~ met de gebruikersconsolé 
(teletype, scherm, etc.) 

-met een massageheu^en 

(schijf, magnetische band, etc.). 

Andere 1/0 typen worden overgelaten aan de keuze van de programmeur. 
Implementaties zullen sterk afhangen van de beschikbare I/O structuren, 
van de snelheidsbeperkingen of van de overdraagbaarheid van het sys¬ 
teem. Er zullen zeker verschillende oplossingen zijn voor een onafhan¬ 
kelijk systeem (stand-alone system) of voor een FORTH werkend in een 
door de fabrikant geleverd systeem (zoals RTE), die in het algemeen de 
1/0 structuur vastlegt op systeem-niveau. 

Er is een voorstel in de maak om een protocol te definiëren, dat de 
implementatie voor de programmeur doorzichtig maakt. 

Die oplossing zou altijd moeten xrorden toegepast als de sne^heidseisen 
dit toelaten. 

De "stand-alone'’ versie van FORTH die de programmeur toegang geeft tot 
alle mogelijkheden van de machine, zonder beperkingen, en in het bij¬ 
zonder tot de 1/0, biedt zulke unieke mogelijkheden voor het afregelen 
van instrumenten en hun ''drivers” tot aan de limiet van logica en ma¬ 
teriaal, dat men het zich niet kan veroorloven hier geen kennis van te 
willen nemen. 
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7.1 Commando's voor het afdrukken 




3 


7 


a) (eventuele) formats 

FLD bevat de lengte van het veld, 

DPL bevat het aantal decimalen na de punt. 

Deze twee variabelen zijn van type INTEGER ; zij kunnen onaf¬ 
hankelijk van elkaar worden geherdefinieerd, of met de opdracht 

< lengte van veld > < aantal decimale plaatsen > W.D 

N. B. Na het inlezen van getallen bevatten deze twee variabelen 

de waarden overeenkomend met het ingelezen getal. 

b) Tyg_ogdrachten 

CR geeft een terug wagen ’,CR,” en nieuwe regel, "LF" . 

Indien het systeem werkt met een buffergeheugen (zoals bij 
RTE) dan wordt de gehele regel pas afgedrukt na de opdracht 
CR . 

• drukt de waarde op de top van de stack af, gevolgd door ëên 
spatie (onafhankelijk van F en D). 

S. evenzo, maar links aanvullend (right justified) in een veld 
met lengte F L 

O. als . maar in QCTAL , onafhankelijk van de waarde in BASE . 

? drukt de inhoud af van het adres op de top van de stack 

(gelijk aan a ). ) 

D. drukt de waarde af van het dubbele getal op de top van de stack 
volgens FLD en DPL . 

F. drukt de waarde af van het "floating” getal op de top van de 
stack volgens FLD en DPL . 

geeft een spatie 

geeft m spaties 
geeft m regels 

drukt de text af tussen en " 

schrijft het ASCII character waarvan de waarde 
op de stack staat. 


SPACE 

< ut > SPACES 

< m > CRS 

text 

< m > WCH 
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< character adres > < aantal characters' > TYPE 

drukt het aantal characters af vanaf het gegeven 
adres . 






< adres van een kop > COUNT < 

zet de parameters goed voor TYPE om de naam van een 
entry af te drukken. 

(Dit wordt o.a. gebruikt bij kettingen van 
characters). 

< blok nummer > LIST 

drukt de 16 lijnen van een blok af en nummert ze. 
(Zie voor blokstructuur het massageheugen in hoofd¬ 
stuk 8.0). 

< begin blok > < eind blok > BLIST 

drukt allé, blokken af tussen de twee aangegeven 
limieten. 

< begin blok > < eind blok > CLIST 

drukt de eerste regel af van alle blokken tussen 
de twee aangegeven limieten. 


WHERE 

1502 


drukt de naam af van de kop van. de laatst gemaakte 
entry in de bibliotheek, eventueel gevolgd door de 
naam van de vocabulaire waarin dit is gebeurd. 


c) V er andering van uitvoertoestel 



PRINTER leidt de afdruk naar de snelle drukker als die be¬ 

staat. 

TERMINAL brengt de afdruk weer terug naar de "terminal'’ van 

de gebruiker. 


'/LIST &it Lieb. 


I0O 




B ü 6 P U M p 
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8.0 Virtueel en massageheugen 


Reeds vanaf zijn ontstaan heeft FORTH gebruik gemaakt van een massa¬ 
geheugen op schijfband of op een magnetische cassette. 

Tegenwoordig gebruikt FORTH ook wel een operating systera dat hem 
herbergt. Deze versie lijkt slechts uit de verte op het oorspronkelijke 
FORTH, maar biedt in het algemeen sanen net het apcrating .system een 
sterkere beveiliging. 

In het oorspronkelijke FORTH wordt het massageheugen verdeeld in 
512 blokken van 512 16~bit woorden. De blokken zijn genummerd van 
1 tot 512. Soms worden er nog meer genummerd, bijv* met schijfgeheu¬ 
gens. 

In het centrale geheugen (central memory, vroeger ook CORE memory ge¬ 
noemd) zijn tenminste twee gebieden gereserveerd voor de inhoud van 
deze blokken, die zowel gegevens als programma’s kunnen bevatten. 

Het oproepen van deze blokken om bijv. een copie te maken in het 
massageheugen, de keuze van welk blok te gebruiken bij een nieuwe aan¬ 
roep, is geheel automatisch. Dit komt overeen met een virtueel geheugen 
dat voor programmeren op systeemniveau beschikbaar is en niet slechts 
op het niveau van de programmeur. 

Vijf variabelen of procedures maken het mogelijk deze blokken te be¬ 
handelen; 

BLK is een variabele van type INTEGER , die het bloknummer bevat 
van een blok voor gebruik met dc "editor”. 

BLOCK is een procedure welke het bloknummer op de top van de stack 
vervangt door het adres van het eerste woord van dit blok in 
het geheugen. Als het blok niet in central memory is, wordt het 
eerst gecopieerd (opgehaald) vanuit het nassageheugen. 

UPDATE is een procedure die aangeeft dat de blokken zijn veranderd en 
opnieuw moeten worden gecopieerd naar bet massageheugen vóór¬ 
dat zij in het central memory worden overschreven door andere 
blokken. 

FLUSH is een procedure die een transfer maakt tussen blokken in het 

centrale geheugen en het massagcheugen - als de UPDATE flag van 
de blokken is gezet. 



LOAD 


haalt dat blok naar central memory wiens nummer op de stack 
staat en begint de text van dit blok te interpreteren. 

Deze kan op zijn beurt weer andere blokken n laden” en compile¬ 
ren 9 met als enige restrictie de stacklengte. 

v P2 r ^ ee 

4 BLK l we willen blok 4 gebruiken 

7 BLOCK a). druk af de inhoud van het eerste woord van blok 7 
: BLOCK-DUMP BLOCK DUMP-OFFSET l 0 1000 DUMP CR ; 

5 BLOCK-DUMP list de inhoud van blok 5 in een speciaal foraat. 

Stel dat we de blokken in kleinere databestanden willen onderverdelen 
met behulp van 

de konstanten RECORB-LENGTH 

(^-RECORDS/BLOCK 

Stel dat we een procedure AUDRESS willen hebben dat het nummer van 
een RECORD op de stack vervangt door het adres «van het eerste woord 
van de RECORD - na het blok te hebben opgehaald uit het massageheugen ? 
als dit nodig is. Dan kunnen we dit schrijven als 

: ADDRESS 41-RECORDS/BLOCK /MOD 511 MIN BLOCK SWAP RECORD-LENGTE * + 5 
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V.1 De berekening van e met een groot aantal decimalen in een gegeven 


grondtal (base) 


De berekening van e of tt met een zeer groot aantal significante 
cijfers (enkele duizenden) heeft altijd aantrekkingskracht gehad op 
mathematen en op programmeurs, zelfs al heeft dit geen enkel fundamen¬ 
teel belang meer. 

De hier voorgestelde methode gebruikt geen meervoudige precisie opera¬ 
toren. De voor e verkregen waarde kan echter wel worden gebruikt om 
meervoudige precisie-operatoren te toetsen wanneer zij gebruikt worden 
in een meer bekend algorithme. 


A lg orithme van Sale 

X 

Stel een reeks-ontwikkeling van e gegeven door : 


(1) e 


i=0 


i: 


( 2 ) 


= 1 + X I 1 + — 


1 + ~ ( 1 + ... ) 


Door x » 1 te stellen krijgen we e 


e = 2 + 


1 + j ( 1 + ... ) 


Men moet echter de sommatie beperken tot een eindig aantal (ra) 
termen met behulp van de vergelijking 

(n+1) 


(3) m min 


m. > b 


waar n het aantal decimalen is in grondtal (base) b . 

Deze relatie kan niet worden berekend voor grote m . In dat èeval 
wordt m! benaderd door de formule van Stirling : 


( 4 ) 


m 


Zn (m) - 1 


+ 0.5 £n (2.ïï.m) > (n + 1) . £n (b) 


Voorbeeld; we krijgen - m * 73 voor b = 10 , n = 100 

- ra = 1000 voor b = 10 , n = 2566 . 

' m 


Laten we nu het aantal decimalen van e berekenen met het algo 
rithme van Sale. In dit voorbeeld gebruiken wij b = 10 . 
Vermenigvuldig teller en noemer van (2) met b : 
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(5) 


e 




f 10 + ~ 

\ 10 + I ( 10 t ... ) 

\ 

J 



1 3 

L * J 

é 


Haal nu binnen de haken het gehele en het fractionele gedeelte uit 
elkaar. 


(6) e = 2 + ■ 


10 


7 + I 


0+ T 


10 


+ 7 " ( 0 + 

4 


Het gehele getal stelt de nieuwe decimaal voor. 

Merk op dat het gehele getal wordt verkregen door eerst het 
binnenste haakjespaar uit te werken. Om de volgende decimaal te 
krijgen moeten we weer teller en noemer vermenigvuldigen met het 
grondtal b , 


Ui twerken 

Wij definiëren eerst enkele constanten, 

EBASE grondtal waarin wordt gerekend en afgedrukt 
ND aantal gewenste decimalen 

M aantal termen van de reeks, berekend volgens (4) 

COEF een ARRAY met dimensie > M dat de tellers van (6) bevat naar 
gelang de berekening verder gaat. 

We willen het afdrukken netjes maken om het lezen te vergemakkelijken. 
De hoofdprocedure neemt de volgende vorm aan; 

: ECALC EINIT 

ND 1+ 1 DO DIGII S. 

CPRINT 
LOOP ; 

\ 

initialiseert de tabel COEF en de verschillende variabelen 
nodig voor het afdrukken van de getallen. 

berekent een nieuwe decimaal. 

regelt een nieuwe pagina en lay-out van de pagina. 

berekent de nieuwe decimaal volgens relatie (b), telt op de 
stack de gehele deeltallen op en vervangt iedere coëfficiënt 
op de stack door de rest na de deling. We beginnen met 0 op 
de stack. 


EINIT 

DIGIT 

CPRINT 

DIGIT 
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! DIGIT 0 2 M DO I COEF d) 

EBASE * + 

I /MOD 

SWAP I COEF ! 

-1 +LOOP ; 

Ogmerking : 

- De lusindex neerat af van M tot en net 2 , met 
incrcments van -1 , 

™ Met de operator /MOD wordt een tijdelijke variabele 
vermeden, evenals enige "delikate" operaties op de stack. 


Tenslotte maken we de volgende lay-out voor het afdrukken: 

10 groepen van 5 cijfers per lijn 
10 groepen van 5 lijnen per pagina 

De variabelen van het type CYCLE lenen zich bij uitstek voor dit 
soort besturing. Wij definiëren vier variabelen: 

5 CYCLE CEL 5 CYCLE CLI 

10 CYCLE CRC 10 CYCLE, CPG 

De initialisatie kan als volgt geschieden: 


: EINIT M 

1 + 

2 

DO 1 

I 

COEF LOOP 

5 

F 

: 2 

s. 

ft 

. 

1 

F 

j 

• 




1 

? 

CBL 

ï 

+ 

1 

' CRC ! 

1 

ï 

CLI 

? 

• 

1 

1 CPG ! | 


De lay-out kan dan zo gaan: 


: CPP.INT CBL 0= IF " 

CRC 0= IF CR 

CLI 0= IF CR 

CPG 0= IF PAGE THEN 
TEEN " ... " 


THEN ; 


THEN 


Het programma is hiermee beëindigd. We kunnen tenslotte aan het begin 
van EINIT de berekening van M toevoegen volgens relatie (4) . * 



Als MAX het grootste gehele getal is dat op de stack 
mogelijk is, moet er voldaan zijn aan 
EBASE * M - MAX . 

BASE moet in overeenstemming zijn met EBASE . 

In plaats van eén enkel cijfer per keer te berekenen 
kun je er meerdere tegelijk berekenen als volgt. 

Je neemt voor EBASE een macht van het grondtal waar¬ 
in wordt afgedrukt. (Bijv. EBASE = 1000 voor het be¬ 
rekenen van drie getallen tegelijk.) Er moet dan wel 
een andere initialisatie en lay-out komen. De bereke¬ 
ningstijd neemt af naarmate er meerdere cijfers ge¬ 
lijktijdig worden berekend. In grondtal 2 kunnen we 
gemakkelijk 5 cijfers gelijktijdig berekenen. De be¬ 
perking van het aantal dat maximaal gelijktijdig kan 
worden berekend volgt uit de eerste opmerking daar¬ 


over. 




DECXMAL ie CONSTANT EBASE 1000 CONSTANT M M ARRAY COS? 

2566 CONSTANT ND 

S CYCLE SSL S CYCLE CL1 10 CYCLE CISC IS CYCLE CPG 

* EXHXT N 1 ♦ 8 DO'1 I COEF I LOOP 5 11 8S. » .* I M 

1 * CSL 1 I * CRC I i • CL3 f I * CPG ï I 

8 DlfiST 0 2 H DO I CCEF • EBASE * ♦ 

I /KOD SNAP l COËF I 
"1 «LOOP 1 

8 SPRINT SSL 0 * IF ** 89 

ene 8® IF CS 

CU §» SF CR 

CPG O*» IF PAGE THEN 
TKEN w ** 

YHEM 

TH EN I 

* ECALC CR CR. EINIT 

ND 1*1 DO DISJT Sc SPRINT LOOP 
CR CE $ 

PROGRAMME POOH LE CALCtflU BE E AVEC BEAUCOUP DE DECIMALES 

EBASE XNDX QUE LA BASE SERVANT POUR L*XMPRESSXON 

M SNDIQUE LE NOMBRE DE TERNES DU DEVELOPPSMINf 

m ■ INDIGUE LE NOMBRE SE CHIFFRES A ÏMPRIMER 

L* INPRESSI ON SE FAIT A RAÏSON DE I® ORÖÜPES DE S LISMES 

Pm PAGE 

I® GROUPES BE 9 CIIIFFRES 
PAR LISNE 

L 8 ALG0R ITHME UTILISE SE YRÖÜVE DECRIT DANS L'ARTICLË * 

THE CALCÜLATION OF E TC MANY SIGNIFICANT DIGITS 
PE Ac He J» SALE «1968J® THE COMPUTER JOURNAL® Vtll P229~230 

er* 

600 9 ND S ECALC 


2*71828 

18284 

59045 

23536 

02874 

71352 

66249 

77572 

47693 

69995 

95749 

66967 

62772 

40766 

30353 

54759 

45713 

82178 

52516 

64274 

27466 

392 93 

20030 

59921 

81 741 

35966 

29043 

57290 

03342 

95260 

59563 

37331 

32328 

62794 

34907 

63233 

82986 

0753! 

95251 

8190! 

15738 

34187 

93070 

21540 

89149 

93488 

41675 

09244 

76146 

0668® 

82264 

80816 

84774 

11853 

74234 

54424 

37107 

53907 

77449 

92869 

55 i 70 

27618 

38606 

26133 

13845 

83000 

75204 

49338 

26560 

29760 

67371 

2 3200 

70932 

87091 

27443 

74704 

72306 

96977 

20931 

01416 

92836 

81902 

55251 

08657 

46377 

21112 

52389 

78442 

50569 

53696 

77078 

54499 

69967 

94686 

44549 

059S7 

93163 

68892 

30098 

79312 

77361 

78215 

42499 

92295 

7635! 

48220 

82698 

95193 

66803 

31825 

28869 

39849 

64651 

05820 

93923 

98294 

88793 

32036 

25094 

43117 
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V.2 Onderzoek naar permutaties van een vector in hun lexicografische orde¬ 


ning 


Het probleem wordt als volgt gedefinieerd: 

Gegeven is een vector Z: van dimensie NVAL 

We willen i) als gegeven is dat er inderdaad nog éën bestaat, de 

permutatie van Z: hebben, die onmiddellijk in lexicogra¬ 
fische zin (alfabetische waarde) op de voorgaande volgt. 

2 ) deze procedure gebruiken om alle permutaties van de let¬ 
ters F 0 R T H te maken. 

Een onderzoek van het eerste probleem: 

Om de volgende permutatie in lexicografische ordening te krijgen moe¬ 
ten we proberen zoveel mogelijk de waarde "links" te behouden en 
slechts termen "rechts" te veranderen (permuteren). 

Het eerste element om te wijzigen is het i-de, zó dat i de grootste 
index is met i < nval 

en Z : (i) < Z : (i+1) 


Het bestaan van i is verzekerd door het "bestaan van nog een permu¬ 
tatie". 


We zoeken de volgende permutatie en vervangen nu Z : (i) door het 
kleinste element dat nog rechts van Z : (i) is, nl. 
j : i < j < nval 


en Z : (j) is het kleinste element waarvoor geldt 


Z : (j) > Z : (i) 


~ 2 _. »/> £t~- 

iyOGtfVcX. I- 


We moeten nog de overige elementen in het rechtergedeelte ordenen. 

0 

Zij ID de procedure die de waarde i vaststelt 

JD de procedure die de waarde j vaststelt 

i j Z:SWAP de procedure die Z : (i) en Z : (j) verwisselt 

i nval Z:QUEUE de procedure die de Z : (k) ordent 

i < k < nval 


* 


« 00 , 

De volgende permutatie van Z: wordt verkregen door 

: Z:PERMUT ID JD 

OVER Z:SWAP 
1+ NVAL ZjQUEUE ; 

Noot : 

- ID en JD laten respectievelijk i en j op de stack ach¬ 
ter , OVER ZtSWAP pennuteert Z;(i) en Z:(j) maar laat 

i op de stack achter, die wordt geïncrementeerd en daaiua 
opnieuw wordt opgepakt met NVAL door Z:QUEUE . 

Nu moeten we de vier gebruikte procedures opschrijven. 

: ID NVAL 1- LOOP: DUP Z: a) 

OVER 1+ Z: a) 

< 0= WHILE 1- 

REPEAT ; 

: JD NVAL LOOP: Z: a) 

SWAP Z: a) 

’ > 0= WHILE 1- 

REPEAT ; 

Noot : 

- Merk op dat in beide procedures het gebruik van 

LOOP: ... WHILE ... REPEAT moeilijk te omzeilen is. 

Vaak zal men uit de lus springen, zelfs voordat eenmaal de 
lus doorlopen is, in het bijzonder als i = nval-1 of 
j ■ nval . 

0* wordt hier gebruikt om de zin van de voorwaarde om te ke¬ 
ren ( < 0* is equivalent aan > ) . 


: Z-.SWAP 

Z: 

SWAP 

Z: 


OVER 

> 

aJ 

OVER a) 


SWAP 

ROT 

.' ROT ! ; 

en tenslotte 

: Z:QUEUE 

LOOP: 

2DUP 



< WHILE 2DUP Z:SWAP 
1- SWAP 
1+ SWAP 


REPEAT 

DROP DROP ; 
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Opmerki n gen : 

- De vorige noot geldt ook voor Z:QUEUE 


- De operatie die de ordening uitvoert komt in dit geval 
overeen met een inversie van de "rechter" termen. 


Oef eningen : 

- Gebruik NVAL = 4 , Z: - 1, 2, 3, 4 

en voer met de hand de bewerking ZsPEBMUT uit. 

Houd intussen alle tussenresultaten op de stack bij. 

- Wat gebeurt in Z:QUEUE als het aantal termen dat ge¬ 
ordend moet worden even dan wel oneven is? 

- Modificeer Z:PERMUT (of nog beter de procedures die 
door ZrPERMUT worden aangeroepen) zodanig dat in 
plaats van de onmiddellijk volgende permutatie, de 
direct voorafgaande wordt verkregen. 

- De procedure ID (ook JD werkt op dergelijke wijze) 
komt overeen met 

i * nval - 1 

zolang Z:(i) > Z:(i+1) decrementeer i ; 

Wat gebeurt er als men het ^ teken vervangt door > 
En wat gebeurt er bij JD ? 

- Wat gebeurt er als twee elementen uit Z: gelijk zijn? 

- Zowel bij ID als bij JD gaat men uit van een begin- 
waarde ( i * nval - 1 , j * nval ) welke men dë- 
crementeert zolang niet aan de voorwaarde is voldaan. 
Loop je geen kans om negatieve indices te krijgen? 

Laten we nu het tweede gedeelte van ons probleem bekijken, en wel het 
gebruik van Z:PERMUT . 

Het is mogelijk vrijwel direct een procedure PERM-FORTH te schrijven 
als we ons de voorwaarde herinneren waaraan Z:PERMUT moet voldoen, 
d.w.z. dat de volgende permutatie bestaat. Zij Z‘:>0RDRE de procedure 
die waar is (TRUE) wanneer Z: volledig in afnemende ordening is 
(en dus niet verder in lexicografische zin geordend kan worden, d.w.z. 
de laatste letter in alfabetische volgorde vooraan, de v66rlaatste 
daarvoor etc.) 
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: PERM-FORTH Z:INIT-FORTH Z:PRINT 
LOOP: Z s>ORDRE 

0= WHILE Z:PERMUT 

Z:PRINT 

REPEAT ; 

Deze procedure volgt de algemene regels van dergelijke programma's: 

- na een initialisatie gaat men zolang er werk te doen is door, 
om tenslotte de resultaten af te drukken. 

Om andere ensembles van waarden te pennuteren, hoeven we alleen 
Z:INIT-FORTH te veranderen. 

Laten we nu snel de laatste procedures bekijken 

: Z:INIT-FORTH 4 NVAL l 

106 0 Z: 110 1 Z: l 

117 2 Zs l 122 3 Z: .' 

124 4 Z: I 

CR CR 

." PERïTJTATIONS DES LETTRES FORTH" 

CR CR ; 

: Z: >0RDRE 1 NV AL 0 DO I Z: 

I 1 + Z: 

> AND 
LOOP • 

: Z: PRINT 6 BLANKS 

NVAL 1+ 0 DO 

I Z: WCH BLANK 

LOOP 

CR ; 

- In FORTH loopt de index van 0 tot n waarna de 
waarde wordt doorgegeven aan NVAL. 

- De ondergrens van de index van Z: verschijnt voor de 
eerste keer expliciet in Z:INIT-FORTH , en daarna 
ook in Z:>0RDRE . 
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- In al de voorgaande routines hadden we een limiet kun¬ 
nen vaststellen van 1 of een willekeurige andere waarde 
(zelfs negatief!) 

- Z2>0RDRE speelt een fundamentele rol 

a) waakt- tegen verboden gebruik van Z:PERMUT . 

b) beëindigt de taak wanneer alle permutaties zijn af- 
gcdrukt. 

- In Z;INIT-F0RTH worden de letters FORTH gegeven in 
hun alfabetische volgorde (d.w.z. FHORT). 


QSlSSiSÊëïï : 

- Probeer door wijziging van deze nieuwe procedures om de 
permutaties van FORTH in afnemende rangorde te laten 
gebeuren. 

- Bij de hierboven gegeven initialisatie krijgt men 120 
(=5!) permutaties. Hoeveel permutaties zijn er als je 
uitgaat van FORTH (in plaats van van FHORT)? 

- Wijzig Z;PERMUT zo dat je altijd een nieuwe permuta¬ 
tie krijgt. We voegen dan eerst de (cyclische) conven- 
tie toe dat de eerste permutatie in monotoon groeiende 
ordening (de eerste dus in lexicografische ordening) 
onmiddellijk volgt op de laatste permutatie (de laatste 
dus in lexicografische zin). 

Noot : Er ontbreekt nog een initialisatie van NVAL en van Z: 

Dit zou bijvoorbeeld kunnen met 

10 CONSTANT NV AL NV AL ARRAY Z: 

Historische opmerking : 

Dit voorbeeld is in feite ontleend aan het werk van Dijkstra (cf. bi¬ 
bliografie). De algorithme zelf is al in 1812 gepubliceerd in Dresden 

/ 

door Fischer en Krause, in hun boek 'Lehrbuch der Korobinationslehre und 
der Arithmetik’, en is vrijwel identiek aan de algorithme van Dijkstra. 

Het algemene probleem van permutaties (en niet alleen in lexicografische 
zin) heeft tot een zeer groot aantal publicaties geleid, zowel in de 
mathematica als in de informatica. Het 2 e nummer, volume 9, van de, 

"ACM Computing Surveys' (juni 1977) is helemaal gewijd aan een artikel 
van R. Sedgewick over dit onderwerp. Behalve een gedetailleerde be- 
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schrijving van de belangrijkste van de bekende algoritmen, bevat het ar¬ 
tikel ook een studie over de (soms spectaculaire} optimatisatie die hier¬ 
in mogelijk is op het niveau van de machine code evenals een uitgebreide 
bibliografie. 
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V.3 Voorbeeld van een recursieve procedure 


De kromme van Von Koch 

Deze figuren werden op het einde van de vorige eeuw onderzocht door de 
mathematicus Von Koch ten behoeve van bepaalde integratieproblemen. ' 
Het zijn krommen die, in het limietgeval, oneindig lang zijn, maar die 
een volstrekt eindig en beperkt oppervlak omsluiten. 

Beschouw een gelijkzijdige driehoek. Verdeel iedere zijde in drieën en 
construeer een nieuwe driehoek op het centrale segment. Vervolgens be¬ 
waren we slechts de "buiten' ! figuur. 



We voeren dezelfde constructie uit op ieder segment van de nieuwe fi f 
guur, en zo vervolgens voort tot in het oneindige. 

cIq « 

Merk op dat we na de n iteratie beschikken over 
3 . 4 n segmenten , 

en dat de lengte van ieder segment gelijk is aan 

~ van de zijde van de oorspronkelijke driehoek ( * 1 ) 

3 n 

Derhalve groeit de totale lengte van de kromme toet 



De oppervlakte van ieder toegevoegd driehoekje is dan 



n** 1 

en er zijn hiervan 3*4 die tezamen een oppervlakte leveren van 
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B*s« vormen darhalv® &m «mm&tt iscfe® -rsoks met red© 


4 

? 

o.. 

In da limiet zal da oppervlakte van da figuur dua jr si ja van dia 
van liet oorspronkelijk oppervlak. 


Da oppervlakte aal trouwens altijd liggen binnen de bsgrmsing van de 
cirkel door da hoekpunten van da oorspronkelijke driehoek» •_ , 

Wij villen nu- een procedure maken vearmse tra da kroms» van Von Koch 
kunnen tekenen voer verschillende vaarden vssa n • 

Beschouw eerst d® zes varplaataingsrichtingeu dis w® nummeren van 0 
tot 5 . 



Stel bovendien dat tra de kromme willen tekenen in da richting van 
tegen de wijzers van de klok in ( j 9 laten we dan nagaan hoe 
ieder ssgssent bij ieders iteratie wordt vervangen. 
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lader segment met richting i wordt vervangen door: 

- een segment met richting i 

- gevolgd door een segment met richting i-1 modulo 6 

- gevolgd door een segment met richting i+1 modulo 6 

- gevolgd door een segment met richting i 

(we definiëren dat -1 modulo 6=5) 

We kunnen au een procedure PLVK samenstellen die een segment moet 
tekenen van een elementaire lengte-eenheid in de richting gegeven doof 
de waarde op de stack (0 tot en met 5) en een procedure VKOCH die 
de recursieve opbouw vaststelt. Deze procedure vraagt twee parameters 
van de stack : 

- op de top de index van recursiviteit 

~ daaronder de richting van het beschouwde segment. 

Als de index van recursiviteit 0 is, dan laten we het segment teke¬ 
nen. , 

Zo niet, dan roepen we VKOCH veaupsï-ef aan met een vermindering van 
de recursiviteitsindex met 1 . 

De beginwaarde van de recursiviteitsindex geeft de maximale diepte aan 
die tenslotte zal worden bereikt. 

: VKOCH DUP 0= IF 

DROP 

PLOT 

ELSE 

1 - 

OVER OVER MYSELF 
OVER 1- 6 MOD OVER MYSELF 

OVER 1+ 6 MOD OVER MYSELF 

OVER OVER MYSELF 

TEEN 


Om de volledige kromme te tekenen, moeten we drie keer VKOCH aanroe¬ 
pen in de drie richtingen van de oorspronkelijke driehoek : 

Stel dat de beginwaarde van de recursiviteitsindex als vrije parameter 
gelaten wordt voor de aanroep van VONKOCH 
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: V0NK0CH 0 

OVER 

VKOCH 

2 

OVER 

VKOCH 

4 

OVER 

VKOCH 

DROP ; 



Het is ook mogelijk de driehoeken te construeren gericht naar de 
binnenkant van de figuur in plaats van naar de buitenkant. 

: VONKOCHINT 1 OVER VKOCH 
5' OVER VKOCH 
3 OVER VKOCH 
DROP ; 

Om een plotprocedure PLVK te construeren merken we op dat een hoek 
van 60° gemakkelijk gemaakt kan worden met incrementen (4,7) overeen¬ 
komend met 60°15’ . We maken twee tabellen DX en DY van ieder zes 
elementen voor de richtingen genummerd 0 tot en met 5 . 

5 ARRAY DX -6 DP+I 10, 4, -4, -10, -4, 4, 

5 ARRAY DY -6 DP+I 0, 7, 7, 0, -7, -7, 

: PLVK DUP DX a> SWAP DY a> PLT ; 

Mocht tenslotte op een machine -1 6 MOD niet tot antwoord 5 leiden, 

dan kunnen we zelf een procedure schrijven met het beoogde doel. 

: 6M0D 6 MOD DUP 0< IF DROP 5 THEN ; 

en deze 6M0D aanbrengen in VKOCH in de plaats van de oorspronkelij¬ 

ke 6M0D . 


/ 


. . . ■ > «.*: ^ 

Figuren van, ?oa Ksch verkregen door da “extasna*? en "intern®" 
kroraea over elkaar te leggen voor recurrentia-diapfcea v«s • 4 
reapeetievelijk 5 . 










111 


V.6 Lijst van hoekpunten en ribben van een hyperkubus in een n-dimensiona- 


le ruimte 


Stel dat we een foto-electrisch meetsysteem hebben met n filters en 
dat de metingen behept zijn met een onzekerheid. Zij ^ de maximale 
fout die gemaakt kan worden bij de een of andere kleur. Wij kunnen dan 
een hyperkubus definiëren voor een representatie van de maximale fout. 
Deze kubus is gecontreerd op de meetwaarde en heeft ribben ter lengte 
e . Een analyse van de waarnemingen wordt in het algemeen gedaan met 
behulp van een projectie op een vlak van telkens twee lineaire, ver¬ 
schillende combinaties van de waargenomen kleuren. Wij willen nagaan 
hoe de zojuist gedefinieerde hyperkubus zich hierbij afbeeldt. 


In feite zullen we slechts het eerste gedeelte van het probleem be¬ 
schouwen door met aftellen en zonder herhalingen een nummer toe te kennen aai? 


- alle hoekpunten 

- alle ribben 


van de hyperkubus 


i 


Merk allereerst op dat in een n-dimensionale ruimte een hyperkubus 2 n 
hoekpunten heeft, welke we kunnen nummeren van 0 tot 2 n * . Dit 
stelt ons in staat de hoofdprocedure te schetsen; 


; NDCUBE 2 N + 0 DO 

I SOMMET (hoekpunt) 

I ARETES (ribben) 

LOOP ; 

f 

(De uiteindelijke versie verschilt slechts door de controle van het 
afdrukken en de lay-out van de pagina.) 

In SOMMET berekenen we de coördinaten van het i^ e hoekpunt en 
drukken deze af. Om het voorbeeld eenvoudig te houden leggen we de 
oorsprong van het coördinatensysteem op de hoek genummerd 0 en nemen 
we e = 1 als lengte voor alle zijden. 

De coördinaten van een hoekpunt zijn dan een mengsel van n nullen 
enen. Er zijn 2 n verschillende combinaiies van 0 en 1 om de co¬ 
ördinaten van een hoekpunt aan te geven. Deze overeenkomst (equivalen¬ 
tie) suggereert een representatie in grondtal 2 voor de coördinaten 
. „ .de 

van het x punt. 





De coördinaten van 4* hoekpunten van een kubus (n * 3) „ 

We kunnen voor de hoekpunten 50MMKT schrijveni 
? SOMMET N 0 DO 

DUP 1 AND , 

2 / 

LOOP 

GR DROP j 

SOMMET drukt de coördinaten van het i óe punt af volgens de zojuist 
genoemd* conventie. 

We krijgen nu te maken met de procedure AKETES die alle ribben 
moet aanvijzen die uitgaan van het i^ e hoekpunt en die nog niet 
zijn gebruikt. Een ribbe is per definitie evenwijdig aan één van de 
coordinaat-assea en loodrecht op alle andere assen» of, anders gé~ 
zegd: alle coördinaten blijven onveranderd op êén na, die van 0 in 
1 verandert, of can 1 in 0 . 
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: ARETES N DO 

DUP 

I TESTBIT 
0» IF DUP 

I SETBIT 
SOMMET 

THEN 

LOOP 

CR DROP ; 

SOMMET wordt hier weer gebruikt om het tweede hoekpunt van de ribbe 
af te drukken. 

De procedures TESTBIT en SETBIT worden in machine code (assembler) 
gedefinieerd. De actie die ze uitvoeren is de volgende: 

I en M zijn waarden op de stack. 0 < I < 15 

cl© 

M I TESTBIT laat op de stack de waarde van het I bit van M achter» 
M I SETBIT zet het I de bit van M op 1 . 

M I CLEARBIT zet het I de bit van M op 0 . 

Laten we eindigen met de uiteindelijke versie en met het resultaat 
verkregen door 3 in N te plaatsen, en NDCUBE aan te roepen. 

6 CONSTANT N : 2+N 1 N 0 DO 2 * LOOP ; 

: SOMMET N 0 DO 

DUP 1 AND . 

2 / 

LOOP 

CR DROP ; 

: ARETES N 0 DO 

DUP 

I TESTBIT 
0= IF DUP 

I SETBIT 

" VERS " SOMMET 

THEN 

LOOP 
CR DROP ; 
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: CTITRE CR CR " SOMMETS ET ARETES D'UN " 
N 2 CASE " CARRÉ" 

ELSE 3 CASE " CUBE" 

ELSE " HYPERCUBE A " N . 

THEN THEN 
CR CR j 

: NDCUBE CTITRE 

2+N 0 DO 

I " SOMMET " SOMMET CR 
I ARETES 

LOOP 
CR CR ; 

3 * N l NDCUBE 

SOMMETS ET ARETES D'UN CUBE 

SOMMET 000 

VERS 1 0 0 
VERS 0 1 0 
VERS 0 0 1 

SOMMET 1 0 0 

VERS 1 1 0 
VERS 1 0 1 

SOMMET 0 1 0 

VERS 1 1 0 
VERS 0 1 1 

SOMMET 1 1 0 

VERS 1 1 1 

SOMMET 0 0 1 

VERS 1 0 1 
VERS 0 1 1 

SOMMET 1 0 1 

VERS 1 1 1 

SOMMET 0 1 1 

VERS 1 1 1 

SOMMET 1 1 1 

OF. 


" DIMENSIONS" 
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Z.l Index 


Opmerkinge n : 

“ De entries in deze index zijn in lexicografische orde 
gedefinieerd door de ASCII-code. 

- De entries in hoofdletters hebben betrekking op FORTO 
voorden. 


(spatie) 

90 

V 

• 

11-14-21-80 

lf l« 

90 

ft 

23-54 

* 

21 

*/ 

21 

«f 

21 


11-14 

♦LOOP 

52-58-59 

9 

39-70-71 

m 


9 

21 

9/ 

21 

,CODE 

49-72 

- 

21 

• 

11-14 

-LOOP 

58 

• 

90 

.NEXT 

45-74 

/ 

21 

/MOD 

21-96 

0< 

23-54 

0- 

23-54 

0SET 

12-14 

1+ 

12-14-21 

1+J 

11-14-21 

1- 

12-14-21 

1 -: 

12-14-21 

1 IMP 

36-39 

1SET 

12-14 


2DUP 

10-13 

20VER 

U-13 

2P0P 

74 

2R0T 

11-13' 

2 SWAP 

11-13 

• 

* 

28-32-44-46 

:0RPHAN 

41-43 

:0RX 

41-43 

■ 

9 

28-44-47 

• • 

9 * 

84-86 

;C0DE 

49-83 e.v. 

< 

23-54 

- 

23-54 

> 

23-54 

? 

90 

?DEF 

39 

<0 

11-14-21-80 

ABINARY 

74 

ABORT 

53 


ABORT-STRING 88 
ABORT-STRINGARRAY 
88 

ABS 21 

ADOPT 39-41 

ADOX 43 

ALOG 24 

analyse top-down 

29 e.v. 

AND 23 
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Vervolg 


Vervolg 


APUSH 

74 

COUNT 

91 

APUT 

74 

CR 

90 

ARRAY 

80-82 

CRS 

90 

ASSEMBLER 

25-48-49 

CURRENT 

48-49 

ATAN 

24 

CYCLE 

85-86 

BACKLOO? 

58 

Dï 

11-14-21 

BASIC 

7 

D* 

21 

BBINARY 

74 

D + 

21 

BEGIN 

53-61-66 

D“ 

21 

BEGIN, 

75 

D. 

90 

bibliotheek 

8-25-32 

D/ 

21 

BINARY 

74 

Da) 

11-14-21 

bit, précêdence 

databestand 

(mas s ageheugen) 


26-32 


92 e.v. 

BLK 

92-93 

DCONSTANT 

80-83 

blok 

91-92 e.v. 

DECD1AL 

87 

BLOCK 

92-93 

DEFINE 

36-38 

BNOT 

23 

DEFINITIONS 

49-51 

bottom up coding 

dialect 

51 


29 e.v. 

dictionaire 

8-25-32 

BPUSH 

74 

DO 

17-37-52-58-59-66 

BPUT 

74 

dubbel 

19 



DOUBLÉ 

80 

CASE 

52-56-57 

DP 

9-39 

CHAIN 

51 

DPI 

39 

CODE 

49-71 

DP+! 

39 

code geassocieerd 

DPa} 

39 


26-41-45-83-86 

DPL 

90 

compilatiën 

32-68 

DROP 

10-13 

compilatiën, 

voorwaardelijke 

DUP 

10-13 


68 e.v. 



compilatiën, 

incrementeel 

e 

94 


31 

ELSE 

41-52-53-55-56-57 

COMPILE 

39 

ELSE, 

75 

CONSTANT 

35-80-83 

END 

53-61 


CONTEXT 48-49 

COS 24 


END, 


75 

26 e.v., 41-48-70-72 


entry 
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Vervolg 



Vervolg 


ESAC 

57 


kop 

26-71 

executie 

32-34-35 




EXITL00P 

53-58 


label 

53 




LAST 

32 

F! 

21 


LIST 

91 

F* 

21 


LIT, 

34 

F+ 

21 


litterals 

32 

F“ 

21 


LOAD 

93 

F. 

90 


LOOP 

52-58-59 

F / 

21 




FACULTEIT 

36-59 


macro instructie 

FIX 

22 



71-76 

FLD 

90 


massageheugen 

FLOAT 

22 



92 e.v. 

floating point 


MATRIX ' 

82-83-86 


19 


MAX 

21 

FLUSH 

92 


MIN 

21 

functie, arithmetische 


MINUS 

21 


24 


MOD 

21 

FORGET 

40-51 


multiple precisie 

format 

90 



94 

FORWARD 

36-38 


MYSELF 

36 

fractie 

19 


naam 

26-27-28-36-48-71-72-88 

gcd 

63 


NDROP * 

10-13 

geheel getal 

19 


NEXT 

44-46-47-74 




notatie, Foolse 

HERE 

39-71 



19-20 

HEX 

87 


NOVER 

11-13 

hypercube 

111 


0 . 

90 

IC 

35-45-47-66 


OCTAL 

87 

IF 

52-55-66 


operator, 

arithmetische 

IF, 

75 



21 e.v. 

IFEND 

68-69 


operator. 

* 

logische 

IFTRUE 

68-69 



23 

INTEGER 

80-84-85 


OR 

23 

interface 

31 


ORCX 

41-43 

interpreter 

7 

( 

ORPHAN 

41-43 




Vervolg 


Ver volg 


OTHERWISE 

68-69 

OVER 

11-13 

parameter 

10-26-37 

permutatie 

99 

PI 

24 

pointer 

26 

POLY 

81-82 

POP 

74 

PRINTER 

91 

procedure 

28 e.v. -32-41 

programmatie 

, hiërarchische 

28-44 

programmatie 

, gestructureerde 

52 

PUSH 

74 

PUT 

74 

recursiviteit 

18 - 36 e.v. - 106 

reeksen van ■ 

characters 

88 

REPEAT 

52-53-55-62-64 

roman 

63 

ROT 

11-13 

RP 

9-17-18 

RP+.' 

17 

RP0 

9-17 

RP<Z> 

17 

S. 

90 

S) 

73 

si) 

73 


(1D-14 

SDUMP 

59-60 

security 

66 

SET 

87 

simulatie 

31 


SIN 

24 

SP 

9-10-13-73 

SP.’ 

12 

• 

SP+’ 

12 

SP0 

9-10-13-73 

SPo? 

10-12 

SPACE 

90 

SPACES 

90 

SQRT 

24 

stack, operationele 


00 

1 

o 

<t> 

• 

< 

• 

u> 

stack, return 


8-17 e.v.-37 

STATE 

32-71 

stepwise 

refinement 


28-31 

STRING 

88 

STRINGARRAY 88 

SWAP 

11-13 

synoniem 

27-36-40 

table de multiplication 


59-60 

TASK . 

40 

TERMINAL 

91 

test 

28-31 

THEN 

52-55-66 

THEN, 

75 

top down design 


29-31 

TYPE 91 


Ulam, reeks van 

64-65 

UPDATE 92 

VECTOR 81 

vergelijking 23-54 




Vervolg 


vocabulaires 

25-48-51 

VOCABULARY 

48 

Von Koch 

38-106 

WCH 

90 

wees 

41 

werkwoorden 

87 

WHERE 

91 

WHILE 

52-53-62-64 



Schematic logical structure of FORTH computer operating control system 
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